# this is the source of the test file. The test file is produced by:
# gap4r4 init.g ../if_local < tst/maple.src # on Medicis
# gap_dev init.g < tst/maple.src # on my pc
# remove the line 'gap> LogTo();' at the end of the generated file.


IF_EXEC_FULL_PATH[90]:="/home/costanti/bin/maple";

LogTo("tst/maple.tst");


# Start

START_TEST( "Test of the 'if' package" );
SizeScreen([80]);;


IF_Interface(IF_maple, "gcd", [1000, 360] );


# type

Test();



IF_Interface(IF_ghci, "length", ["cba"] );

IF_Interface(IF_ghci, "reverse", ["cba"] );

IF_Interface(IF_ghci, "and", [[true,false]] );



# end of test file

STOP_TEST( "test", 10000 );

LogTo();
quit;

