1  DECLARE

 2    testcases  VARCHAR2 (1000) :=
 3  '#program name|test case name|message|arguments|result|assertion type
 4   betwnstr|1|normal|normal|abcdefgh;3;5|cde|eq
 5   betwnstr|1|zero start|zero start|abcdefgh;0;2|ab|eq

 6   betwnstr|1|null start|null start|abcdefgh;!null;2|null|isnull
 7   betwnstr|1|big start small end|big start small end|abcdefgh;10;5|null|isnull
 8   betwnstr|1|null end|null end|abcdefgh;!3;!null|null|isnull';
 9  BEGIN
10     utgen.testpkg_from_string ('betwnstr',

11        testcases,
12        output_type_in=> utgen.c_file,
13        dir_in=> 'd:\test_packages'
14     );
15  END;