gap> 
gap> 
gap> # Start
gap> 
gap> START_TEST( "Test of the 'if' package" );
gap> SizeScreen([80]);;
gap> 
gap> 
gap> 
gap> IF_Interface(IF_mathematica, "GCD", [1000, 360] );
40
gap> 
gap> 
gap> # String
gap> 
gap> IF_Interface( IF_mathematica, "Identity", ["ciao"] );
"ciao"
gap> IF_Interface( IF_mathematica, "Identity", ["a\"b\\c"] );
"a\"b\\c"
gap> 
gap> 
gap> # Integer
gap> 
gap> l := [-3^30, -1, 0, 1, 3^70];;
gap> List(l, x->IF_Type(IF_mathematica, x));
[ "Integer", "Integer", "Integer", "Integer", "Integer" ]
gap> l=List(l, x-> IF_Interface(IF_mathematica, "Identity", [x]));
true
gap> 
gap> 
gap> # Rational
gap> 
gap> c:=Enumerator(Rationals);
<enumerator of Rationals>
gap> for i in [1..20] do
>   if not c[i]=IF_Interface(IF_mathematica, "Identity", [c[i]] ) then
>     Print( c[i], " ", fail, "\n");
>   fi;
> od;
gap> 
gap> 
gap> 
gap> 
gap> # end of test file
gap> 
gap> STOP_TEST( "test", 10000 );
Test of the 'if' package
GAP4stones: 6
gap> 
