view test/@Sneetch/Sneetch.m @ 12409:2848dd7c4dd7 release-3-4-x release-3-4-0

version 3.4.0 released
author John W. Eaton <jwe@octave.org>
date Tue, 08 Feb 2011 05:00:08 -0500
parents f9ab19428cd8
children
line wrap: on
line source

function [ s ] = Sneetch( mcbean )
% Test class: should produce error.

  if (nargin==1) && isa(mcbean, 'Sneetch')
    s = mcbean;
  else
    if nargin==0
      s.mcbean = 1;
    else
      s.mcbean = mcbean;
    end
    s = class(s, 'Sneetch');
    s.sylvester = 1;
  end
        
end