function y = testReadFromFile9
filename = fullfile(pwd,'test-data', 'notes_annotations.xml');
m2 = sprintf('%s\n %s %s %s %s %s %s\n %s\n %s\n %s', ...
'', ...
'', ...
'', ...
'', ...
'');
m1 = sprintf('\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n', ...
' ', ...
' ', ...
' Shapiro', ...
' Bruce', ...
' ', ...
' bshapiro@jpl.nasa.gov', ...
' ', ...
' NASA Jet Propulsion Laboratory', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' 2005-02-08T18:36:17Z');
m3 = sprintf('\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n', ...
' ', ...
' ', ...
' 2006-11-14T21:59:41Z', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
' ', ...
'');
model_ann = strcat(m2, m1, m3);
c1 = sprintf('%s\n %s %s %s %s %s %s\n %s\n %s\n %s', ...
'', ...
'', ...
'', ...
'', ...
'');
c2 = sprintf('\n %s\n %s\n %s\n %s\n %s\n%s', ...
'', ...
'', ...
'', ...
'', ...
'', ...
'');
comp_ann = strcat(c1, c2);
species_notes = sprintf('%s\n %s\n %s\n %s\n %s\n %s\n %s\n %s\n%s', ...
'', ...
'', ...
'', ...
'
', ...
'A Simple Mitotic Oscillator', ...
'
', ...
'', ...
'', ...
'');
m = TranslateSBML(filename);
test = 5;
Totalfail = 0;
Totalfail = Totalfail + fail_unless(m.SBML_level == 2);
Totalfail = Totalfail + fail_unless(m.SBML_version == 1);
Totalfail = Totalfail + fail_unless(strcmp(m.annotation, model_ann));
Totalfail = Totalfail + fail_unless(strcmp(m.compartment(1).annotation, comp_ann));
Totalfail = Totalfail + fail_unless(strcmp(m.species(1).notes, species_notes));
%
disp('Testing readFromFile9:');
disp(sprintf('Number tests: %d', test));
disp(sprintf('Number fails: %d', Totalfail));
disp(sprintf('Pass rate: %d%%\n', ((test-Totalfail)/test)*100));
if (Totalfail == 0)
y = 0;
else
y = 1;
end;
function y = fail_unless(arg)
if (~arg)
y = 1;
else
y = 0;
end;