#!lpc -Cstay
/* These have to be readable */
#define EXISTINGFILE "/etc/passwd"
#define EXISTINGDIRECTORY "."
#define NONEXISTINGFILE "/a-non-existing-file.test"
#define NONEXISTINGDIRECTORY "/a-non-existing-directory.test"
#define EXISTINGENVIRONMENTVARIABLE "HOME"
#define NONEXISTINGENVIRONMENTVARIABLE "non-existing-environment-variable"
int call_out_test() { }
void move(object o) { move_object(o); }
void main(int argc,string *argv)
{
int verbose;
int e,loops;
string s;
mixed tmp;
mixed _1,_2;
verbose=0;
loops=1;
for(e=1;e<argc;e++)
{
switch(argv[e])
{
case "-h":
case "--help":
perror("Usage: "+argv[0]+" [-v | --verbose] [-l<loops> | --loop=<loops]\n");
perror(" [-h | --help]\n");
exit(0);
case "-v":
case "--verbose":
verbose++;
break;
case "-l":
case "--loop":
sscanf(argv[e],"-%s",s);
sscanf(argv[e],"-l%s",s);
sscanf(argv[e],"oop=%s",s);
loops=(int)s;
if(!loops)
perror("Use -l<loops> or --loop=<loops>\n");
break;
default:
perror("Unnown argument "+argv[e]+" (try "+argv[0]+" --help for more info).\n");
break;
}
}
if(verbose)
{
write("This script is supposed to test the lpc4-driver.\n");
write("Start the tests.\n");
write("write() works.\n");
perror("perror() works.\n");
}
/* C-comment */
// C++ comment
int errors = 0;
object _ob;
while(loops--)
{
/* Test 1 */
if(verbose) perror("Doing test 1.\n");
if(_1=( 1 ))
{
if(verbose)
perror("Test 1: 1 succeded.\n");
}else{
perror("Test 1: 1 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 2 */
if(verbose) perror("Doing test 2.\n");
if(_1=( !0 ))
{
if(verbose)
perror("Test 2: !0 succeded.\n");
}else{
perror("Test 2: !0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 3 */
if(verbose) perror("Doing test 3.\n");
if(_1=( !(!1) ))
{
if(verbose)
perror("Test 3: !(!1) succeded.\n");
}else{
perror("Test 3: !(!1) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 4 */
if(verbose) perror("Doing test 4.\n");
if(_1=( this_object() ))
{
if(verbose)
perror("Test 4: this_object() succeded.\n");
}else{
perror("Test 4: this_object() failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 5 */
if(verbose) perror("Doing test 5.\n");
if(_1=( this_function() ))
{
if(verbose)
perror("Test 5: this_function() succeded.\n");
}else{
perror("Test 5: this_function() failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 6 */
if(verbose) perror("Doing test 6.\n");
if(_1=( 0.0 ))
{
if(verbose)
perror("Test 6: 0.0 succeded.\n");
}else{
perror("Test 6: 0.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 7 */
if(verbose) perror("Doing test 7.\n");
if(_1=( ([]) ))
{
if(verbose)
perror("Test 7: ([]) succeded.\n");
}else{
perror("Test 7: ([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 8 */
if(verbose) perror("Doing test 8.\n");
if(_1=( ({}) ))
{
if(verbose)
perror("Test 8: ({}) succeded.\n");
}else{
perror("Test 8: ({}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 9 */
if(verbose) perror("Doing test 9.\n");
if(_1=( (<>) ))
{
if(verbose)
perror("Test 9: (<>) succeded.\n");
}else{
perror("Test 9: (<>) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 10 */
if(verbose) perror("Doing test 10.\n");
if(is_equal(_1=( !"" ),_2=( 0 )))
{
if(verbose)
perror("Test 10: is_equal(!\"\" , 0) succeded\n");
}else{
perror("Test 10: is_equal(!\"\" , 0) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 11 */
if(verbose) perror("Doing test 11.\n");
if(_1=( 1==1 ))
{
if(verbose)
perror("Test 11: 1==1 succeded.\n");
}else{
perror("Test 11: 1==1 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 12 */
if(verbose) perror("Doing test 12.\n");
if(_1=( !(1==2) ))
{
if(verbose)
perror("Test 12: !(1==2) succeded.\n");
}else{
perror("Test 12: !(1==2) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 13 */
if(verbose) perror("Doing test 13.\n");
if(_1=( this_object()==this_object() ))
{
if(verbose)
perror("Test 13: this_object()==this_object() succeded.\n");
}else{
perror("Test 13: this_object()==this_object() failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 14 */
if(verbose) perror("Doing test 14.\n");
if(_1=( this_function()==main ))
{
if(verbose)
perror("Test 14: this_function()==main succeded.\n");
}else{
perror("Test 14: this_function()==main failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 15 */
if(verbose) perror("Doing test 15.\n");
if(_1=( 2.0==2.0 ))
{
if(verbose)
perror("Test 15: 2.0==2.0 succeded.\n");
}else{
perror("Test 15: 2.0==2.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 16 */
if(verbose) perror("Doing test 16.\n");
if(_1=( ({})==({}) ))
{
if(verbose)
perror("Test 16: ({})==({}) succeded.\n");
}else{
perror("Test 16: ({})==({}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 17 */
if(verbose) perror("Doing test 17.\n");
if(_1=( ({1})!=({1}) ))
{
if(verbose)
perror("Test 17: ({1})!=({1}) succeded.\n");
}else{
perror("Test 17: ({1})!=({1}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 18 */
if(verbose) perror("Doing test 18.\n");
if(_1=( 1!=2 ))
{
if(verbose)
perror("Test 18: 1!=2 succeded.\n");
}else{
perror("Test 18: 1!=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 19 */
if(verbose) perror("Doing test 19.\n");
if(_1=( !(1==2) ))
{
if(verbose)
perror("Test 19: !(1==2) succeded.\n");
}else{
perror("Test 19: !(1==2) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 20 */
if(verbose) perror("Doing test 20.\n");
if(_1=( 1<2 ))
{
if(verbose)
perror("Test 20: 1<2 succeded.\n");
}else{
perror("Test 20: 1<2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 21 */
if(verbose) perror("Doing test 21.\n");
if(_1=( !(1>2) ))
{
if(verbose)
perror("Test 21: !(1>2) succeded.\n");
}else{
perror("Test 21: !(1>2) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 22 */
if(verbose) perror("Doing test 22.\n");
if(_1=( 2>1 ))
{
if(verbose)
perror("Test 22: 2>1 succeded.\n");
}else{
perror("Test 22: 2>1 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 23 */
if(verbose) perror("Doing test 23.\n");
if(_1=( !(2<1) ))
{
if(verbose)
perror("Test 23: !(2<1) succeded.\n");
}else{
perror("Test 23: !(2<1) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 24 */
if(verbose) perror("Doing test 24.\n");
if(_1=( 1<=2 ))
{
if(verbose)
perror("Test 24: 1<=2 succeded.\n");
}else{
perror("Test 24: 1<=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 25 */
if(verbose) perror("Doing test 25.\n");
if(_1=( !(1>=2) ))
{
if(verbose)
perror("Test 25: !(1>=2) succeded.\n");
}else{
perror("Test 25: !(1>=2) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 26 */
if(verbose) perror("Doing test 26.\n");
if(_1=( 2>=1 ))
{
if(verbose)
perror("Test 26: 2>=1 succeded.\n");
}else{
perror("Test 26: 2>=1 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 27 */
if(verbose) perror("Doing test 27.\n");
if(_1=( !(2<=1) ))
{
if(verbose)
perror("Test 27: !(2<=1) succeded.\n");
}else{
perror("Test 27: !(2<=1) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 28 */
if(verbose) perror("Doing test 28.\n");
if(_1=( 2<=2 ))
{
if(verbose)
perror("Test 28: 2<=2 succeded.\n");
}else{
perror("Test 28: 2<=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 29 */
if(verbose) perror("Doing test 29.\n");
if(_1=( 1>=1 ))
{
if(verbose)
perror("Test 29: 1>=1 succeded.\n");
}else{
perror("Test 29: 1>=1 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 30 */
if(verbose) perror("Doing test 30.\n");
if(_1=( 1.0<2.0 ))
{
if(verbose)
perror("Test 30: 1.0<2.0 succeded.\n");
}else{
perror("Test 30: 1.0<2.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 31 */
if(verbose) perror("Doing test 31.\n");
if(_1=( !(1.0>2.0) ))
{
if(verbose)
perror("Test 31: !(1.0>2.0) succeded.\n");
}else{
perror("Test 31: !(1.0>2.0) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 32 */
if(verbose) perror("Doing test 32.\n");
if(_1=( 2.0>1.0 ))
{
if(verbose)
perror("Test 32: 2.0>1.0 succeded.\n");
}else{
perror("Test 32: 2.0>1.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 33 */
if(verbose) perror("Doing test 33.\n");
if(_1=( !(2.0<1.0) ))
{
if(verbose)
perror("Test 33: !(2.0<1.0) succeded.\n");
}else{
perror("Test 33: !(2.0<1.0) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 34 */
if(verbose) perror("Doing test 34.\n");
if(_1=( 1.0<=2.0 ))
{
if(verbose)
perror("Test 34: 1.0<=2.0 succeded.\n");
}else{
perror("Test 34: 1.0<=2.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 35 */
if(verbose) perror("Doing test 35.\n");
if(_1=( !(1.0>=2.0) ))
{
if(verbose)
perror("Test 35: !(1.0>=2.0) succeded.\n");
}else{
perror("Test 35: !(1.0>=2.0) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 36 */
if(verbose) perror("Doing test 36.\n");
if(_1=( 2.0>=1.0 ))
{
if(verbose)
perror("Test 36: 2.0>=1.0 succeded.\n");
}else{
perror("Test 36: 2.0>=1.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 37 */
if(verbose) perror("Doing test 37.\n");
if(_1=( !(2.0<=1.0) ))
{
if(verbose)
perror("Test 37: !(2.0<=1.0) succeded.\n");
}else{
perror("Test 37: !(2.0<=1.0) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 38 */
if(verbose) perror("Doing test 38.\n");
if(_1=( 2.0<=2.0 ))
{
if(verbose)
perror("Test 38: 2.0<=2.0 succeded.\n");
}else{
perror("Test 38: 2.0<=2.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 39 */
if(verbose) perror("Doing test 39.\n");
if(_1=( 1.0>=1.0 ))
{
if(verbose)
perror("Test 39: 1.0>=1.0 succeded.\n");
}else{
perror("Test 39: 1.0>=1.0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 40 */
if(verbose) perror("Doing test 40.\n");
if(_1=( "a"<"b" ))
{
if(verbose)
perror("Test 40: \"a\"<\"b\" succeded.\n");
}else{
perror("Test 40: \"a\"<\"b\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 41 */
if(verbose) perror("Doing test 41.\n");
if(_1=( !("a">"b") ))
{
if(verbose)
perror("Test 41: !(\"a\">\"b\") succeded.\n");
}else{
perror("Test 41: !(\"a\">\"b\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 42 */
if(verbose) perror("Doing test 42.\n");
if(_1=( "b">"a" ))
{
if(verbose)
perror("Test 42: \"b\">\"a\" succeded.\n");
}else{
perror("Test 42: \"b\">\"a\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 43 */
if(verbose) perror("Doing test 43.\n");
if(_1=( !("b"<"a") ))
{
if(verbose)
perror("Test 43: !(\"b\"<\"a\") succeded.\n");
}else{
perror("Test 43: !(\"b\"<\"a\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 44 */
if(verbose) perror("Doing test 44.\n");
if(_1=( "a"<="b" ))
{
if(verbose)
perror("Test 44: \"a\"<=\"b\" succeded.\n");
}else{
perror("Test 44: \"a\"<=\"b\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 45 */
if(verbose) perror("Doing test 45.\n");
if(_1=( !("a">="b") ))
{
if(verbose)
perror("Test 45: !(\"a\">=\"b\") succeded.\n");
}else{
perror("Test 45: !(\"a\">=\"b\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 46 */
if(verbose) perror("Doing test 46.\n");
if(_1=( "b">="a" ))
{
if(verbose)
perror("Test 46: \"b\">=\"a\" succeded.\n");
}else{
perror("Test 46: \"b\">=\"a\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 47 */
if(verbose) perror("Doing test 47.\n");
if(_1=( !("b"<="a") ))
{
if(verbose)
perror("Test 47: !(\"b\"<=\"a\") succeded.\n");
}else{
perror("Test 47: !(\"b\"<=\"a\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 48 */
if(verbose) perror("Doing test 48.\n");
if(_1=( "b"<="b" ))
{
if(verbose)
perror("Test 48: \"b\"<=\"b\" succeded.\n");
}else{
perror("Test 48: \"b\"<=\"b\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 49 */
if(verbose) perror("Doing test 49.\n");
if(_1=( "a">="a" ))
{
if(verbose)
perror("Test 49: \"a\">=\"a\" succeded.\n");
}else{
perror("Test 49: \"a\">=\"a\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 50 */
if(verbose) perror("Doing test 50.\n");
if(( _1=( 16 ))==( _2=( "\20"[0] )))
{
if(verbose)
perror("Test 50: 16==\"\\20\"[0] succeded\n");
}else{
perror("Test 50: 16==\"\\20\"[0] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 51 */
if(verbose) perror("Doing test 51.\n");
if(( _1=( 16 ))==( _2=( "\020"[0] )))
{
if(verbose)
perror("Test 51: 16==\"\\020\"[0] succeded\n");
}else{
perror("Test 51: 16==\"\\020\"[0] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 52 */
if(verbose) perror("Doing test 52.\n");
if(( _1=( 255 ))==( _2=( "\377"[0] )))
{
if(verbose)
perror("Test 52: 255==\"\\377\"[0] succeded\n");
}else{
perror("Test 52: 255==\"\\377\"[0] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 53 */
if(verbose) perror("Doing test 53.\n");
if(( _1=( 4 ))==( _2=( '\4' )))
{
if(verbose)
perror("Test 53: 4=='\\4' succeded\n");
}else{
perror("Test 53: 4=='\\4' failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 54 */
if(verbose) perror("Doing test 54.\n");
if(_1=( "\r"[0]!='r' ))
{
if(verbose)
perror("Test 54: \"\\r\"[0]!='r' succeded.\n");
}else{
perror("Test 54: \"\\r\"[0]!='r' failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 55 */
if(verbose) perror("Doing test 55.\n");
if(( _1=( "\r"[0] ))==( _2=( '\r' )))
{
if(verbose)
perror("Test 55: \"\\r\"[0]=='\\r' succeded\n");
}else{
perror("Test 55: \"\\r\"[0]=='\\r' failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 56 */
if(verbose) perror("Doing test 56.\n");
if(( _1=( "\n"[0] ))==( _2=( '\n' )))
{
if(verbose)
perror("Test 56: \"\\n\"[0]=='\\n' succeded\n");
}else{
perror("Test 56: \"\\n\"[0]=='\\n' failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 57 */
if(verbose) perror("Doing test 57.\n");
if(( _1=( 1+1 ))==( _2=( 2 )))
{
if(verbose)
perror("Test 57: 1+1==2 succeded\n");
}else{
perror("Test 57: 1+1==2 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 58 */
if(verbose) perror("Doing test 58.\n");
if(( _1=( 1+(-2) ))==( _2=( -1 )))
{
if(verbose)
perror("Test 58: 1+(-2)==-1 succeded\n");
}else{
perror("Test 58: 1+(-2)==-1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 59 */
if(verbose) perror("Doing test 59.\n");
if(( _1=( (-2)+(-2) ))==( _2=( -4 )))
{
if(verbose)
perror("Test 59: (-2)+(-2)==-4 succeded\n");
}else{
perror("Test 59: (-2)+(-2)==-4 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 60 */
if(verbose) perror("Doing test 60.\n");
if(( _1=( "hi"+"there" ))==( _2=( "hithere" )))
{
if(verbose)
perror("Test 60: \"hi\"+\"there\"==\"hithere\" succeded\n");
}else{
perror("Test 60: \"hi\"+\"there\"==\"hithere\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 61 */
if(verbose) perror("Doing test 61.\n");
if(( _1=( "human"+"number"+666 ))==( _2=( "humannumber666" )))
{
if(verbose)
perror("Test 61: \"human\"+\"number\"+666==\"humannumber666\" succeded\n");
}else{
perror("Test 61: \"human\"+\"number\"+666==\"humannumber666\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 62 */
if(verbose) perror("Doing test 62.\n");
if(( _1=( "human"+("number"+666) ))==( _2=( "humannumber666" )))
{
if(verbose)
perror("Test 62: \"human\"+(\"number\"+666)==\"humannumber666\" succeded\n");
}else{
perror("Test 62: \"human\"+(\"number\"+666)==\"humannumber666\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 63 */
if(verbose) perror("Doing test 63.\n");
if(( _1=( ("human"+"number")+666 ))==( _2=( "humannumber666" )))
{
if(verbose)
perror("Test 63: (\"human\"+\"number\")+666==\"humannumber666\" succeded\n");
}else{
perror("Test 63: (\"human\"+\"number\")+666==\"humannumber666\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 64 */
if(verbose) perror("Doing test 64.\n");
if(( _1=( ("human"+"number")+666+111 ))==( _2=( "humannumber666111" )))
{
if(verbose)
perror("Test 64: (\"human\"+\"number\")+666+111==\"humannumber666111\" succeded\n");
}else{
perror("Test 64: (\"human\"+\"number\")+666+111==\"humannumber666111\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 65 */
if(verbose) perror("Doing test 65.\n");
if(( _1=( "humannumber"+(666+111) ))==( _2=( "humannumber777" )))
{
if(verbose)
perror("Test 65: \"humannumber\"+(666+111)==\"humannumber777\" succeded\n");
}else{
perror("Test 65: \"humannumber\"+(666+111)==\"humannumber777\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 66 */
if(verbose) perror("Doing test 66.\n");
if(( _1=( "a"+"b"+"c"+"d"+"e"+"f"+"g"+"h"+"i"+"j"+"k"+"l"+"m"+"n"+"o"+"p"+"q"+"r"+"s"+"t"+"u"+"v"+"x"+"y" ))==( _2=( "abcdefghijklmnopqrstuvxy" )))
{
if(verbose)
perror("Test 66: \"a\"+\"b\"+\"c\"+\"d\"+\"e\"+\"f\"+\"g\"+\"h\"+\"i\"+\"j\"+\"k\"+\"l\"+\"m\"+\"n\"+\"o\"+\"p\"+\"q\"+\"r\"+\"s\"+\"t\"+\"u\"+\"v\"+\"x\"+\"y\"==\"abcdefghijklmnopqrstuvxy\" succeded\n");
}else{
perror("Test 66: \"a\"+\"b\"+\"c\"+\"d\"+\"e\"+\"f\"+\"g\"+\"h\"+\"i\"+\"j\"+\"k\"+\"l\"+\"m\"+\"n\"+\"o\"+\"p\"+\"q\"+\"r\"+\"s\"+\"t\"+\"u\"+\"v\"+\"x\"+\"y\"==\"abcdefghijklmnopqrstuvxy\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 67 */
if(verbose) perror("Doing test 67.\n");
if(( _1=( 1.0+1.0 ))==( _2=( 2.0 )))
{
if(verbose)
perror("Test 67: 1.0+1.0==2.0 succeded\n");
}else{
perror("Test 67: 1.0+1.0==2.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 68 */
if(verbose) perror("Doing test 68.\n");
if(( _1=( 1.0+(-1.0) ))==( _2=( 0.0 )))
{
if(verbose)
perror("Test 68: 1.0+(-1.0)==0.0 succeded\n");
}else{
perror("Test 68: 1.0+(-1.0)==0.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 69 */
if(verbose) perror("Doing test 69.\n");
if(( _1=( (-1.0)+(-1.0) ))==( _2=( -2.0 )))
{
if(verbose)
perror("Test 69: (-1.0)+(-1.0)==-2.0 succeded\n");
}else{
perror("Test 69: (-1.0)+(-1.0)==-2.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 70 */
if(verbose) perror("Doing test 70.\n");
if(is_equal(_1=( ({1,2,3})+({4,5,6}) ),_2=( ({1,2,3,4,5,6}) )))
{
if(verbose)
perror("Test 70: is_equal(({1,2,3})+({4,5,6}) , ({1,2,3,4,5,6})) succeded\n");
}else{
perror("Test 70: is_equal(({1,2,3})+({4,5,6}) , ({1,2,3,4,5,6})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 71 */
if(verbose) perror("Doing test 71.\n");
if(is_equal(_1=( (<1,2,3,4>)+(<4,5,6>) ),_2=( (<1,2,3,4,4,5,6>) )))
{
if(verbose)
perror("Test 71: is_equal((<1,2,3,4>)+(<4,5,6>) , (<1,2,3,4,4,5,6>)) succeded\n");
}else{
perror("Test 71: is_equal((<1,2,3,4>)+(<4,5,6>) , (<1,2,3,4,4,5,6>)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 72 */
if(verbose) perror("Doing test 72.\n");
if(is_equal(_1=( ([0:1,3:6])+([5:2,3:6]) ),_2=( ([0:1,3:6,3:6,5:2]) )))
{
if(verbose)
perror("Test 72: is_equal(([0:1,3:6])+([5:2,3:6]) , ([0:1,3:6,3:6,5:2])) succeded\n");
}else{
perror("Test 72: is_equal(([0:1,3:6])+([5:2,3:6]) , ([0:1,3:6,3:6,5:2])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 73 */
if(verbose) perror("Doing test 73.\n");
if(( _1=( 10-3 ))==( _2=( 7 )))
{
if(verbose)
perror("Test 73: 10-3==7 succeded\n");
}else{
perror("Test 73: 10-3==7 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 74 */
if(verbose) perror("Doing test 74.\n");
if(( _1=( 3-10 ))==( _2=( -7 )))
{
if(verbose)
perror("Test 74: 3-10==-7 succeded\n");
}else{
perror("Test 74: 3-10==-7 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 75 */
if(verbose) perror("Doing test 75.\n");
if(( _1=( 10.0-3.0 ))==( _2=( 7.0 )))
{
if(verbose)
perror("Test 75: 10.0-3.0==7.0 succeded\n");
}else{
perror("Test 75: 10.0-3.0==7.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 76 */
if(verbose) perror("Doing test 76.\n");
if(( _1=( 3.0-10.0 ))==( _2=( -7.0 )))
{
if(verbose)
perror("Test 76: 3.0-10.0==-7.0 succeded\n");
}else{
perror("Test 76: 3.0-10.0==-7.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 77 */
if(verbose) perror("Doing test 77.\n");
if(( _1=( "foobargazonk"-"o" ))==( _2=( "fbargaznk" )))
{
if(verbose)
perror("Test 77: \"foobargazonk\"-\"o\"==\"fbargaznk\" succeded\n");
}else{
perror("Test 77: \"foobargazonk\"-\"o\"==\"fbargaznk\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 78 */
if(verbose) perror("Doing test 78.\n");
if(is_equal(_1=( ({"foo","bar","gazonk"})-({"foo","gazonk"}) ),_2=( ({"bar"}) )))
{
if(verbose)
perror("Test 78: is_equal(({\"foo\",\"bar\",\"gazonk\"})-({\"foo\",\"gazonk\"}) , ({\"bar\"})) succeded\n");
}else{
perror("Test 78: is_equal(({\"foo\",\"bar\",\"gazonk\"})-({\"foo\",\"gazonk\"}) , ({\"bar\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 79 */
if(verbose) perror("Doing test 79.\n");
if(is_equal(_1=( (<"foo","bar","gazonk">)-(<"foo","gazonk">) ),_2=( (<"bar">) )))
{
if(verbose)
perror("Test 79: is_equal((<\"foo\",\"bar\",\"gazonk\">)-(<\"foo\",\"gazonk\">) , (<\"bar\">)) succeded\n");
}else{
perror("Test 79: is_equal((<\"foo\",\"bar\",\"gazonk\">)-(<\"foo\",\"gazonk\">) , (<\"bar\">)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 80 */
if(verbose) perror("Doing test 80.\n");
if(is_equal(_1=( (["foo":3,"bar":4,"gazonk":5])-(["foo":3,"gazonk":8]) ),_2=( (["bar":4]) )))
{
if(verbose)
perror("Test 80: is_equal(([\"foo\":3,\"bar\":4,\"gazonk\":5])-([\"foo\":3,\"gazonk\":8]) , ([\"bar\":4])) succeded\n");
}else{
perror("Test 80: is_equal(([\"foo\":3,\"bar\":4,\"gazonk\":5])-([\"foo\":3,\"gazonk\":8]) , ([\"bar\":4])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 81 */
if(verbose) perror("Doing test 81.\n");
if(( _1=( 3*4 ))==( _2=( 12 )))
{
if(verbose)
perror("Test 81: 3*4==12 succeded\n");
}else{
perror("Test 81: 3*4==12 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 82 */
if(verbose) perror("Doing test 82.\n");
if(( _1=( 4*3 ))==( _2=( 12 )))
{
if(verbose)
perror("Test 82: 4*3==12 succeded\n");
}else{
perror("Test 82: 4*3==12 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 83 */
if(verbose) perror("Doing test 83.\n");
if(( _1=( 2*2*2*2*2 ))==( _2=( 32 )))
{
if(verbose)
perror("Test 83: 2*2*2*2*2==32 succeded\n");
}else{
perror("Test 83: 2*2*2*2*2==32 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 84 */
if(verbose) perror("Doing test 84.\n");
if(( _1=( 3.0*4.0 ))==( _2=( 12.0 )))
{
if(verbose)
perror("Test 84: 3.0*4.0==12.0 succeded\n");
}else{
perror("Test 84: 3.0*4.0==12.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 85 */
if(verbose) perror("Doing test 85.\n");
if(( _1=( 4.0*3.0 ))==( _2=( 12.0 )))
{
if(verbose)
perror("Test 85: 4.0*3.0==12.0 succeded\n");
}else{
perror("Test 85: 4.0*3.0==12.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 86 */
if(verbose) perror("Doing test 86.\n");
if(( _1=( 2.0*2.0*2.0*2.0*2.0 ))==( _2=( 32.0 )))
{
if(verbose)
perror("Test 86: 2.0*2.0*2.0*2.0*2.0==32.0 succeded\n");
}else{
perror("Test 86: 2.0*2.0*2.0*2.0*2.0==32.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 87 */
if(verbose) perror("Doing test 87.\n");
if(( _1=( ({"foo","bar","gazonk"})*"-" ))==( _2=( "foo-bar-gazonk" )))
{
if(verbose)
perror("Test 87: ({\"foo\",\"bar\",\"gazonk\"})*\"-\"==\"foo-bar-gazonk\" succeded\n");
}else{
perror("Test 87: ({\"foo\",\"bar\",\"gazonk\"})*\"-\"==\"foo-bar-gazonk\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 88 */
if(verbose) perror("Doing test 88.\n");
if(( _1=( 12/3 ))==( _2=( 4 )))
{
if(verbose)
perror("Test 88: 12/3==4 succeded\n");
}else{
perror("Test 88: 12/3==4 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 89 */
if(verbose) perror("Doing test 89.\n");
if(( _1=( 13/3 ))==( _2=( 4 )))
{
if(verbose)
perror("Test 89: 13/3==4 succeded\n");
}else{
perror("Test 89: 13/3==4 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 90 */
if(verbose) perror("Doing test 90.\n");
if(( _1=( 14/3 ))==( _2=( 4 )))
{
if(verbose)
perror("Test 90: 14/3==4 succeded\n");
}else{
perror("Test 90: 14/3==4 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 91 */
if(verbose) perror("Doing test 91.\n");
if(( _1=( 15/3 ))==( _2=( 5 )))
{
if(verbose)
perror("Test 91: 15/3==5 succeded\n");
}else{
perror("Test 91: 15/3==5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 92 */
if(verbose) perror("Doing test 92.\n");
if(( _1=( 12.0/3.0 ))==( _2=( 4.0 )))
{
if(verbose)
perror("Test 92: 12.0/3.0==4.0 succeded\n");
}else{
perror("Test 92: 12.0/3.0==4.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 93 */
if(verbose) perror("Doing test 93.\n");
if(( _1=( 14.0/4.0 ))==( _2=( 3.5 )))
{
if(verbose)
perror("Test 93: 14.0/4.0==3.5 succeded\n");
}else{
perror("Test 93: 14.0/4.0==3.5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 94 */
if(verbose) perror("Doing test 94.\n");
if(( _1=( 15.0/3.0 ))==( _2=( 5.0 )))
{
if(verbose)
perror("Test 94: 15.0/3.0==5.0 succeded\n");
}else{
perror("Test 94: 15.0/3.0==5.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 95 */
if(verbose) perror("Doing test 95.\n");
if(is_equal(_1=( "foo-bar-gazonk"/"-" ),_2=( ({"foo","bar","gazonk"}) )))
{
if(verbose)
perror("Test 95: is_equal(\"foo-bar-gazonk\"/\"-\" , ({\"foo\",\"bar\",\"gazonk\"})) succeded\n");
}else{
perror("Test 95: is_equal(\"foo-bar-gazonk\"/\"-\" , ({\"foo\",\"bar\",\"gazonk\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 96 */
if(verbose) perror("Doing test 96.\n");
if(is_equal(_1=( "foobargazonk"/"" ),_2=( ({"f","o","o","b","a","r","g","a","z","o","n","k"}) )))
{
if(verbose)
perror("Test 96: is_equal(\"foobargazonk\"/\"\" , ({\"f\",\"o\",\"o\",\"b\",\"a\",\"r\",\"g\",\"a\",\"z\",\"o\",\"n\",\"k\"})) succeded\n");
}else{
perror("Test 96: is_equal(\"foobargazonk\"/\"\" , ({\"f\",\"o\",\"o\",\"b\",\"a\",\"r\",\"g\",\"a\",\"z\",\"o\",\"n\",\"k\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 97 */
if(verbose) perror("Doing test 97.\n");
if(( _1=( 12%3 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 97: 12%3==0 succeded\n");
}else{
perror("Test 97: 12%3==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 98 */
if(verbose) perror("Doing test 98.\n");
if(( _1=( 13%3 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 98: 13%3==1 succeded\n");
}else{
perror("Test 98: 13%3==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 99 */
if(verbose) perror("Doing test 99.\n");
if(( _1=( 14%3 ))==( _2=( 2 )))
{
if(verbose)
perror("Test 99: 14%3==2 succeded\n");
}else{
perror("Test 99: 14%3==2 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 100 */
if(verbose) perror("Doing test 100.\n");
if(( _1=( 15%3 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 100: 15%3==0 succeded\n");
}else{
perror("Test 100: 15%3==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 101 */
if(verbose) perror("Doing test 101.\n");
if(( _1=( 12.0 % 3.0 ))==( _2=( 0.0 )))
{
if(verbose)
perror("Test 101: 12.0 % 3.0==0.0 succeded\n");
}else{
perror("Test 101: 12.0 % 3.0==0.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 102 */
if(verbose) perror("Doing test 102.\n");
if(( _1=( 13.0 % 3.0 ))==( _2=( 1.0 )))
{
if(verbose)
perror("Test 102: 13.0 % 3.0==1.0 succeded\n");
}else{
perror("Test 102: 13.0 % 3.0==1.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 103 */
if(verbose) perror("Doing test 103.\n");
if(( _1=( 14.0 % 3.0 ))==( _2=( 2.0 )))
{
if(verbose)
perror("Test 103: 14.0 % 3.0==2.0 succeded\n");
}else{
perror("Test 103: 14.0 % 3.0==2.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 104 */
if(verbose) perror("Doing test 104.\n");
if(( _1=( 14.5 % 3.0 ))==( _2=( 2.5 )))
{
if(verbose)
perror("Test 104: 14.5 % 3.0==2.5 succeded\n");
}else{
perror("Test 104: 14.5 % 3.0==2.5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 105 */
if(verbose) perror("Doing test 105.\n");
if(( _1=( 15.0 % 3.0 ))==( _2=( 0.0 )))
{
if(verbose)
perror("Test 105: 15.0 % 3.0==0.0 succeded\n");
}else{
perror("Test 105: 15.0 % 3.0==0.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 106 */
if(verbose) perror("Doing test 106.\n");
if(( _1=( 0 && 1 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 106: 0 && 1==0 succeded\n");
}else{
perror("Test 106: 0 && 1==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 107 */
if(verbose) perror("Doing test 107.\n");
if(( _1=( 1 && 0 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 107: 1 && 0==0 succeded\n");
}else{
perror("Test 107: 1 && 0==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 108 */
if(verbose) perror("Doing test 108.\n");
if(( _1=( 0 && 0 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 108: 0 && 0==0 succeded\n");
}else{
perror("Test 108: 0 && 0==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 109 */
if(verbose) perror("Doing test 109.\n");
if(( _1=( 1 && 1 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 109: 1 && 1==1 succeded\n");
}else{
perror("Test 109: 1 && 1==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 110 */
if(verbose) perror("Doing test 110.\n");
if(( _1=( 78 && 1 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 110: 78 && 1==1 succeded\n");
}else{
perror("Test 110: 78 && 1==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 111 */
if(verbose) perror("Doing test 111.\n");
if(( _1=( 78 && 99 ))==( _2=( 99 )))
{
if(verbose)
perror("Test 111: 78 && 99==99 succeded\n");
}else{
perror("Test 111: 78 && 99==99 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 112 */
if(verbose) perror("Doing test 112.\n");
if(( _1=( 78 && 99 ))==( _2=( 99 )))
{
if(verbose)
perror("Test 112: 78 && 99==99 succeded\n");
}else{
perror("Test 112: 78 && 99==99 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 113 */
if(verbose) perror("Doing test 113.\n");
if(( _1=( 0 || 1 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 113: 0 || 1==1 succeded\n");
}else{
perror("Test 113: 0 || 1==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 114 */
if(verbose) perror("Doing test 114.\n");
if(( _1=( 1 || 0 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 114: 1 || 0==1 succeded\n");
}else{
perror("Test 114: 1 || 0==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 115 */
if(verbose) perror("Doing test 115.\n");
if(( _1=( 0 || 0 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 115: 0 || 0==0 succeded\n");
}else{
perror("Test 115: 0 || 0==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 116 */
if(verbose) perror("Doing test 116.\n");
if(( _1=( 1 || 1 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 116: 1 || 1==1 succeded\n");
}else{
perror("Test 116: 1 || 1==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 117 */
if(verbose) perror("Doing test 117.\n");
if(( _1=( 78 || 1 ))==( _2=( 78 )))
{
if(verbose)
perror("Test 117: 78 || 1==78 succeded\n");
}else{
perror("Test 117: 78 || 1==78 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 118 */
if(verbose) perror("Doing test 118.\n");
if(( _1=( 78 || 0 ))==( _2=( 78 )))
{
if(verbose)
perror("Test 118: 78 || 0==78 succeded\n");
}else{
perror("Test 118: 78 || 0==78 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 119 */
if(verbose) perror("Doing test 119.\n");
if(( _1=( 0 | 0 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 119: 0 | 0==0 succeded\n");
}else{
perror("Test 119: 0 | 0==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 120 */
if(verbose) perror("Doing test 120.\n");
if(( _1=( 1 | 1 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 120: 1 | 1==1 succeded\n");
}else{
perror("Test 120: 1 | 1==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 121 */
if(verbose) perror("Doing test 121.\n");
if(( _1=( 4 | 1 ))==( _2=( 5 )))
{
if(verbose)
perror("Test 121: 4 | 1==5 succeded\n");
}else{
perror("Test 121: 4 | 1==5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 122 */
if(verbose) perror("Doing test 122.\n");
if(( _1=( 1 | 9 ))==( _2=( 9 )))
{
if(verbose)
perror("Test 122: 1 | 9==9 succeded\n");
}else{
perror("Test 122: 1 | 9==9 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 123 */
if(verbose) perror("Doing test 123.\n");
if(is_equal(_1=( sort_array(({1,2,3,4,4}) | ({3,5,6})) ),_2=( ({1,2,3,4,4,5,6}) )))
{
if(verbose)
perror("Test 123: is_equal(sort_array(({1,2,3,4,4}) | ({3,5,6})) , ({1,2,3,4,4,5,6})) succeded\n");
}else{
perror("Test 123: is_equal(sort_array(({1,2,3,4,4}) | ({3,5,6})) , ({1,2,3,4,4,5,6})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 124 */
if(verbose) perror("Doing test 124.\n");
if(is_equal(_1=( (<4,5,6>) | (<5,5,5>) ),_2=( (<4,5,5,5,6>) )))
{
if(verbose)
perror("Test 124: is_equal((<4,5,6>) | (<5,5,5>) , (<4,5,5,5,6>) ) succeded\n");
}else{
perror("Test 124: is_equal((<4,5,6>) | (<5,5,5>) , (<4,5,5,5,6>) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 125 */
if(verbose) perror("Doing test 125.\n");
if(is_equal(_1=( ([-4:8,8:7]) | ([3:3,8:3]) ),_2=( ([-4:8,8:3,3:3]) )))
{
if(verbose)
perror("Test 125: is_equal(([-4:8,8:7]) | ([3:3,8:3]) , ([-4:8,8:3,3:3]) ) succeded\n");
}else{
perror("Test 125: is_equal(([-4:8,8:7]) | ([3:3,8:3]) , ([-4:8,8:3,3:3]) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 126 */
if(verbose) perror("Doing test 126.\n");
if(( _1=( 0 & 0 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 126: 0 & 0==0 succeded\n");
}else{
perror("Test 126: 0 & 0==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 127 */
if(verbose) perror("Doing test 127.\n");
if(( _1=( 1 & 1 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 127: 1 & 1==1 succeded\n");
}else{
perror("Test 127: 1 & 1==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 128 */
if(verbose) perror("Doing test 128.\n");
if(( _1=( 4 & 1 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 128: 4 & 1==0 succeded\n");
}else{
perror("Test 128: 4 & 1==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 129 */
if(verbose) perror("Doing test 129.\n");
if(( _1=( 1 & 9 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 129: 1 & 9==1 succeded\n");
}else{
perror("Test 129: 1 & 9==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 130 */
if(verbose) perror("Doing test 130.\n");
if(is_equal(_1=( ({1,2,3,4,4}) & ({3,5,6}) ),_2=( ({3}) )))
{
if(verbose)
perror("Test 130: is_equal(({1,2,3,4,4}) & ({3,5,6}) , ({3})) succeded\n");
}else{
perror("Test 130: is_equal(({1,2,3,4,4}) & ({3,5,6}) , ({3})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 131 */
if(verbose) perror("Doing test 131.\n");
if(is_equal(_1=( (<4,5,6>) & (<5,5,5>) ),_2=( (<5>) )))
{
if(verbose)
perror("Test 131: is_equal((<4,5,6>) & (<5,5,5>) , (<5>) ) succeded\n");
}else{
perror("Test 131: is_equal((<4,5,6>) & (<5,5,5>) , (<5>) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 132 */
if(verbose) perror("Doing test 132.\n");
if(is_equal(_1=( ([-4:8,8:7]) & ([3:3,8:3]) ),_2=( ([8:3]) )))
{
if(verbose)
perror("Test 132: is_equal(([-4:8,8:7]) & ([3:3,8:3]) , ([8:3]) ) succeded\n");
}else{
perror("Test 132: is_equal(([-4:8,8:7]) & ([3:3,8:3]) , ([8:3]) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 133 */
if(verbose) perror("Doing test 133.\n");
if(( _1=( 0 ^ 0 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 133: 0 ^ 0==0 succeded\n");
}else{
perror("Test 133: 0 ^ 0==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 134 */
if(verbose) perror("Doing test 134.\n");
if(( _1=( 1 ^ 1 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 134: 1 ^ 1==0 succeded\n");
}else{
perror("Test 134: 1 ^ 1==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 135 */
if(verbose) perror("Doing test 135.\n");
if(( _1=( 4 ^ 1 ))==( _2=( 5 )))
{
if(verbose)
perror("Test 135: 4 ^ 1==5 succeded\n");
}else{
perror("Test 135: 4 ^ 1==5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 136 */
if(verbose) perror("Doing test 136.\n");
if(( _1=( 1 ^ 9 ))==( _2=( 8 )))
{
if(verbose)
perror("Test 136: 1 ^ 9==8 succeded\n");
}else{
perror("Test 136: 1 ^ 9==8 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 137 */
if(verbose) perror("Doing test 137.\n");
if(is_equal(_1=( ({1,2,3,4,4}) ^ ({3,5,6}) ),_2=( ({1,2,4,4,5,6}) )))
{
if(verbose)
perror("Test 137: is_equal(({1,2,3,4,4}) ^ ({3,5,6}) , ({1,2,4,4,5,6})) succeded\n");
}else{
perror("Test 137: is_equal(({1,2,3,4,4}) ^ ({3,5,6}) , ({1,2,4,4,5,6})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 138 */
if(verbose) perror("Doing test 138.\n");
if(is_equal(_1=( (<4,5,6>) ^ (<5,5,5>) ),_2=( (<4,5,5,6>) )))
{
if(verbose)
perror("Test 138: is_equal((<4,5,6>) ^ (<5,5,5>) , (<4,5,5,6>) ) succeded\n");
}else{
perror("Test 138: is_equal((<4,5,6>) ^ (<5,5,5>) , (<4,5,5,6>) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 139 */
if(verbose) perror("Doing test 139.\n");
if(is_equal(_1=( ([-4:8,8:7]) ^ ([3:3,8:3]) ),_2=( ([-4:8,3:3]) )))
{
if(verbose)
perror("Test 139: is_equal(([-4:8,8:7]) ^ ([3:3,8:3]) , ([-4:8,3:3]) ) succeded\n");
}else{
perror("Test 139: is_equal(([-4:8,8:7]) ^ ([3:3,8:3]) , ([-4:8,3:3]) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 140 */
if(verbose) perror("Doing test 140.\n");
if(( _1=( 1<<0 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 140: 1<<0==1 succeded\n");
}else{
perror("Test 140: 1<<0==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 141 */
if(verbose) perror("Doing test 141.\n");
if(( _1=( 1<<1 ))==( _2=( 2 )))
{
if(verbose)
perror("Test 141: 1<<1==2 succeded\n");
}else{
perror("Test 141: 1<<1==2 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 142 */
if(verbose) perror("Doing test 142.\n");
if(( _1=( 1<<10 ))==( _2=( 1024 )))
{
if(verbose)
perror("Test 142: 1<<10==1024 succeded\n");
}else{
perror("Test 142: 1<<10==1024 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 143 */
if(verbose) perror("Doing test 143.\n");
if(( _1=( 5<<3 ))==( _2=( 40 )))
{
if(verbose)
perror("Test 143: 5<<3==40 succeded\n");
}else{
perror("Test 143: 5<<3==40 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 144 */
if(verbose) perror("Doing test 144.\n");
if(( _1=( 9>>2 ))==( _2=( 2 )))
{
if(verbose)
perror("Test 144: 9>>2==2 succeded\n");
}else{
perror("Test 144: 9>>2==2 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 145 */
if(verbose) perror("Doing test 145.\n");
if(( _1=( 1>>1 ))==( _2=( 0 )))
{
if(verbose)
perror("Test 145: 1>>1==0 succeded\n");
}else{
perror("Test 145: 1>>1==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 146 */
if(verbose) perror("Doing test 146.\n");
if(( _1=( 1024>>10 ))==( _2=( 1 )))
{
if(verbose)
perror("Test 146: 1024>>10==1 succeded\n");
}else{
perror("Test 146: 1024>>10==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 147 */
if(verbose) perror("Doing test 147.\n");
if(( _1=( 47>>3 ))==( _2=( 5 )))
{
if(verbose)
perror("Test 147: 47>>3==5 succeded\n");
}else{
perror("Test 147: 47>>3==5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 148 */
if(verbose) perror("Doing test 148.\n");
if(_1=( tmp=2, (++tmp==3) && (tmp==3) ))
{
if(verbose)
perror("Test 148: tmp=2 succeded.\n");
}else{
perror("Test 148: tmp=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 149 */
if(verbose) perror("Doing test 149.\n");
if(_1=( tmp=2, (tmp++==2) && (tmp==3) ))
{
if(verbose)
perror("Test 149: tmp=2 succeded.\n");
}else{
perror("Test 149: tmp=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 150 */
if(verbose) perror("Doing test 150.\n");
if(_1=( tmp=2, (tmp--==2) && (tmp==1) ))
{
if(verbose)
perror("Test 150: tmp=2 succeded.\n");
}else{
perror("Test 150: tmp=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 151 */
if(verbose) perror("Doing test 151.\n");
if(_1=( tmp=2, (--tmp==1) && (tmp==1) ))
{
if(verbose)
perror("Test 151: tmp=2 succeded.\n");
}else{
perror("Test 151: tmp=2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 152 */
if(verbose) perror("Doing test 152.\n");
if(( _1=( "012345678"[3] ))==( _2=( '3' )))
{
if(verbose)
perror("Test 152: \"012345678\"[3]=='3' succeded\n");
}else{
perror("Test 152: \"012345678\"[3]=='3' failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 153 */
if(verbose) perror("Doing test 153.\n");
if(( _1=( "012345678"[-3] ))==( _2=( '6' )))
{
if(verbose)
perror("Test 153: \"012345678\"[-3]=='6' succeded\n");
}else{
perror("Test 153: \"012345678\"[-3]=='6' failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 154 */
if(verbose) perror("Doing test 154.\n");
if(( _1=( "012345678"[10] ))==( _2=( 0 )))
{
if(verbose)
perror("Test 154: \"012345678\"[10]==0 succeded\n");
}else{
perror("Test 154: \"012345678\"[10]==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 155 */
if(verbose) perror("Doing test 155.\n");
if(_1=( tmp="012", (tmp[1]++=='1') && (tmp=="022") ))
{
if(verbose)
perror("Test 155: tmp=\"012\" succeded.\n");
}else{
perror("Test 155: tmp=\"012\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 156 */
if(verbose) perror("Doing test 156.\n");
if(_1=( tmp="012", (++tmp[1]=='2') && (tmp=="022") ))
{
if(verbose)
perror("Test 156: tmp=\"012\" succeded.\n");
}else{
perror("Test 156: tmp=\"012\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 157 */
if(verbose) perror("Doing test 157.\n");
if(_1=( tmp="012", (--tmp[1]=='0') && (tmp=="002") ))
{
if(verbose)
perror("Test 157: tmp=\"012\" succeded.\n");
}else{
perror("Test 157: tmp=\"012\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 158 */
if(verbose) perror("Doing test 158.\n");
if(_1=( tmp="012", (tmp[1]--=='1') && (tmp=="002") ))
{
if(verbose)
perror("Test 158: tmp=\"012\" succeded.\n");
}else{
perror("Test 158: tmp=\"012\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 159 */
if(verbose) perror("Doing test 159.\n");
if(( _1=( ({0,1,2,3,4,5})[3] ))==( _2=( 3 )))
{
if(verbose)
perror("Test 159: ({0,1,2,3,4,5})[3]==3 succeded\n");
}else{
perror("Test 159: ({0,1,2,3,4,5})[3]==3 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 160 */
if(verbose) perror("Doing test 160.\n");
if(( _1=( ({0,1,2,3,4,5})[-3] ))==( _2=( 3 )))
{
if(verbose)
perror("Test 160: ({0,1,2,3,4,5})[-3]==3 succeded\n");
}else{
perror("Test 160: ({0,1,2,3,4,5})[-3]==3 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 161 */
if(verbose) perror("Doing test 161.\n");
if(( _1=( ([0:1,2:3,4:5])[3] ))==( _2=( 0 )))
{
if(verbose)
perror("Test 161: ([0:1,2:3,4:5])[3]==0 succeded\n");
}else{
perror("Test 161: ([0:1,2:3,4:5])[3]==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 162 */
if(verbose) perror("Doing test 162.\n");
if(( _1=( ([0:1,2:3,4:5])[4] ))==( _2=( 5 )))
{
if(verbose)
perror("Test 162: ([0:1,2:3,4:5])[4]==5 succeded\n");
}else{
perror("Test 162: ([0:1,2:3,4:5])[4]==5 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 163 */
if(verbose) perror("Doing test 163.\n");
if(_1=( tmp=([]), (tmp[1]++==0) && is_equal(tmp,([1:1]) ) ))
{
if(verbose)
perror("Test 163: tmp=([]) succeded.\n");
}else{
perror("Test 163: tmp=([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 164 */
if(verbose) perror("Doing test 164.\n");
if(_1=( tmp=([]), (++tmp[1]==1) && is_equal(tmp,([1:1]) ) ))
{
if(verbose)
perror("Test 164: tmp=([]) succeded.\n");
}else{
perror("Test 164: tmp=([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 165 */
if(verbose) perror("Doing test 165.\n");
if(_1=( tmp=([]), (tmp[1]--==0) && is_equal(tmp,([1:-1]) ) ))
{
if(verbose)
perror("Test 165: tmp=([]) succeded.\n");
}else{
perror("Test 165: tmp=([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 166 */
if(verbose) perror("Doing test 166.\n");
if(_1=( tmp=([]), (--tmp[1]==-1) && is_equal(tmp,([1:-1]) ) ))
{
if(verbose)
perror("Test 166: tmp=([]) succeded.\n");
}else{
perror("Test 166: tmp=([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 167 */
if(verbose) perror("Doing test 167.\n");
if(_1=( tmp=({0}), (tmp[0]++==0) && is_equal(tmp,({1}) ) ))
{
if(verbose)
perror("Test 167: tmp=({0}) succeded.\n");
}else{
perror("Test 167: tmp=({0}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 168 */
if(verbose) perror("Doing test 168.\n");
if(_1=( tmp=({0}), (++tmp[0]==1) && is_equal(tmp,({1}) ) ))
{
if(verbose)
perror("Test 168: tmp=({0}) succeded.\n");
}else{
perror("Test 168: tmp=({0}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 169 */
if(verbose) perror("Doing test 169.\n");
if(_1=( tmp=({0}), (tmp[0]--==0) && is_equal(tmp,({-1}) ) ))
{
if(verbose)
perror("Test 169: tmp=({0}) succeded.\n");
}else{
perror("Test 169: tmp=({0}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 170 */
if(verbose) perror("Doing test 170.\n");
if(_1=( tmp=({0}), (--tmp[0]==-1) && is_equal(tmp,({-1}) ) ))
{
if(verbose)
perror("Test 170: tmp=({0}) succeded.\n");
}else{
perror("Test 170: tmp=({0}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 171 */
if(verbose) perror("Doing test 171.\n");
if(is_equal(_1=( ({0,1,2,3,4})[-3..3] ),_2=( ({2,3}) )))
{
if(verbose)
perror("Test 171: is_equal(({0,1,2,3,4})[-3..3] , ({2,3}) ) succeded\n");
}else{
perror("Test 171: is_equal(({0,1,2,3,4})[-3..3] , ({2,3}) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 172 */
if(verbose) perror("Doing test 172.\n");
if(is_equal(_1=( ({0,1,2,3,4})[1..0] ),_2=( ({}) )))
{
if(verbose)
perror("Test 172: is_equal(({0,1,2,3,4})[1..0] , ({}) ) succeded\n");
}else{
perror("Test 172: is_equal(({0,1,2,3,4})[1..0] , ({}) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 173 */
if(verbose) perror("Doing test 173.\n");
if(is_equal(_1=( ({0,1,2,3,4})[1..3] ),_2=( ({1,2,3}) )))
{
if(verbose)
perror("Test 173: is_equal(({0,1,2,3,4})[1..3] , ({1,2,3}) ) succeded\n");
}else{
perror("Test 173: is_equal(({0,1,2,3,4})[1..3] , ({1,2,3}) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 174 */
if(verbose) perror("Doing test 174.\n");
if(is_equal(_1=( ({0,1,2,3,4})[3..10000] ),_2=( ({3,4}) )))
{
if(verbose)
perror("Test 174: is_equal(({0,1,2,3,4})[3..10000] , ({3,4}) ) succeded\n");
}else{
perror("Test 174: is_equal(({0,1,2,3,4})[3..10000] , ({3,4}) ) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 175 */
if(verbose) perror("Doing test 175.\n");
if(( _1=( "01234"[-3..3] ))==( _2=( "23" )))
{
if(verbose)
perror("Test 175: \"01234\"[-3..3]==\"23\" succeded\n");
}else{
perror("Test 175: \"01234\"[-3..3]==\"23\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 176 */
if(verbose) perror("Doing test 176.\n");
if(( _1=( "01234"[1..0] ))==( _2=( "" )))
{
if(verbose)
perror("Test 176: \"01234\"[1..0]==\"\" succeded\n");
}else{
perror("Test 176: \"01234\"[1..0]==\"\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 177 */
if(verbose) perror("Doing test 177.\n");
if(( _1=( "01234"[1..3] ))==( _2=( "123" )))
{
if(verbose)
perror("Test 177: \"01234\"[1..3]==\"123\" succeded\n");
}else{
perror("Test 177: \"01234\"[1..3]==\"123\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 178 */
if(verbose) perror("Doing test 178.\n");
if(( _1=( "01234"[3..10000] ))==( _2=( "34" )))
{
if(verbose)
perror("Test 178: \"01234\"[3..10000]==\"34\" succeded\n");
}else{
perror("Test 178: \"01234\"[3..10000]==\"34\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 179 */
if(verbose) perror("Doing test 179.\n");
if(_1=( tmp=({1,2,3}), ((tmp[1]=3)==3) && is_equal(tmp,({1,3,3})) ))
{
if(verbose)
perror("Test 179: tmp=({1,2,3}) succeded.\n");
}else{
perror("Test 179: tmp=({1,2,3}) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 180 */
if(verbose) perror("Doing test 180.\n");
if(_1=( tmp="123", ((tmp[1]=3)==3) && is_equal(tmp,"1\0033") ))
{
if(verbose)
perror("Test 180: tmp=\"123\" succeded.\n");
}else{
perror("Test 180: tmp=\"123\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 181 */
if(verbose) perror("Doing test 181.\n");
if(_1=( tmp=(<>), ((tmp[1]=3)==3) && is_equal(tmp,(<1>)) ))
{
if(verbose)
perror("Test 181: tmp=(<>) succeded.\n");
}else{
perror("Test 181: tmp=(<>) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 182 */
if(verbose) perror("Doing test 182.\n");
if(_1=( tmp=(<1>), ((tmp[1]=0)==0) && is_equal(tmp,(<>)) ))
{
if(verbose)
perror("Test 182: tmp=(<1>) succeded.\n");
}else{
perror("Test 182: tmp=(<1>) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 183 */
if(verbose) perror("Doing test 183.\n");
if(_1=( tmp=([]), ((tmp[1]=3)==3) && is_equal(tmp,([1:3])) ))
{
if(verbose)
perror("Test 183: tmp=([]) succeded.\n");
}else{
perror("Test 183: tmp=([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 184 */
if(verbose) perror("Doing test 184.\n");
if(_1=( tmp=([1:3]), ((tmp[1]=0)==0) && is_equal(tmp,([1:0])) ))
{
if(verbose)
perror("Test 184: tmp=([1:3]) succeded.\n");
}else{
perror("Test 184: tmp=([1:3]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 185 */
if(verbose) perror("Doing test 185.\n");
if(_1=( tmp="123", ((tmp[1]=0)==0) && strlen(tmp)==3 && tmp[0]=='1' && tmp[1]==0 && tmp[2]=='3' ))
{
if(verbose)
perror("Test 185: tmp=\"123\" succeded.\n");
}else{
perror("Test 185: tmp=\"123\" failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 186 */
if(verbose) perror("Doing test 186.\n");
if(_1=( tmp=([]), ((tmp[1]=tmp[2]=3)==3) && is_equal(tmp,([1:3,2:3])) ))
{
if(verbose)
perror("Test 186: tmp=([]) succeded.\n");
}else{
perror("Test 186: tmp=([]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
int e;
string tmp;
/* Test 187 */
if(verbose) perror("Doing test 187.\n");
for(tmp="",e=0;e<10;e++) tmp+=e ;
if(( _1=( tmp ))==( _2=( "0123456789" )))
{
if(verbose)
perror("Test 187: for(tmp=\"\",e=0;e<10;e++) tmp+=e ; tmp==\"0123456789\" succeded\n");
}else{
perror("Test 187: for(tmp=\"\",e=0;e<10;e++) tmp+=e ; tmp==\"0123456789\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 188 */
if(verbose) perror("Doing test 188.\n");
for(tmp="",e=0;e>-10;e--) tmp+=e ;
if(( _1=( tmp ))==( _2=( "0-1-2-3-4-5-6-7-8-9" )))
{
if(verbose)
perror("Test 188: for(tmp=\"\",e=0;e>-10;e--) tmp+=e ; tmp==\"0-1-2-3-4-5-6-7-8-9\" succeded\n");
}else{
perror("Test 188: for(tmp=\"\",e=0;e>-10;e--) tmp+=e ; tmp==\"0-1-2-3-4-5-6-7-8-9\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 189 */
if(verbose) perror("Doing test 189.\n");
tmp=""; e=0; do{ tmp+=e; }while(++e<6) ;
if(( _1=( tmp ))==( _2=( "012345" )))
{
if(verbose)
perror("Test 189: tmp=\"\"; e=0; do{ tmp+=e; }while(++e<6) ; tmp==\"012345\" succeded\n");
}else{
perror("Test 189: tmp=\"\"; e=0; do{ tmp+=e; }while(++e<6) ; tmp==\"012345\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 190 */
if(verbose) perror("Doing test 190.\n");
tmp=""; e=0; while(++e<6) tmp+=e; ;
if(( _1=( tmp ))==( _2=( "12345" )))
{
if(verbose)
perror("Test 190: tmp=\"\"; e=0; while(++e<6) tmp+=e; ; tmp==\"12345\" succeded\n");
}else{
perror("Test 190: tmp=\"\"; e=0; while(++e<6) tmp+=e; ; tmp==\"12345\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 191 */
if(verbose) perror("Doing test 191.\n");
tmp="fel"; switch(1) { case 1: tmp="r{tt"; default: } ;
if(( _1=( tmp ))==( _2=( "r{tt" )))
{
if(verbose)
perror("Test 191: tmp=\"fel\"; switch(1) { case 1: tmp=\"r{tt\"; default: } ; tmp==\"r{tt\" succeded\n");
}else{
perror("Test 191: tmp=\"fel\"; switch(1) { case 1: tmp=\"r{tt\"; default: } ; tmp==\"r{tt\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 192 */
if(verbose) perror("Doing test 192.\n");
tmp="fel"; switch(1) { default: tmp="r{tt"; case 1: } ;
if(( _1=( tmp ))==( _2=( "fel" )))
{
if(verbose)
perror("Test 192: tmp=\"fel\"; switch(1) { default: tmp=\"r{tt\"; case 1: } ; tmp==\"fel\" succeded\n");
}else{
perror("Test 192: tmp=\"fel\"; switch(1) { default: tmp=\"r{tt\"; case 1: } ; tmp==\"fel\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 193 */
if(verbose) perror("Doing test 193.\n");
tmp="fel"; switch(2) { default: tmp="r{tt"; case 1: } ;
if(( _1=( tmp ))==( _2=( "r{tt" )))
{
if(verbose)
perror("Test 193: tmp=\"fel\"; switch(2) { default: tmp=\"r{tt\"; case 1: } ; tmp==\"r{tt\" succeded\n");
}else{
perror("Test 193: tmp=\"fel\"; switch(2) { default: tmp=\"r{tt\"; case 1: } ; tmp==\"r{tt\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 194 */
if(verbose) perror("Doing test 194.\n");
tmp=""; for(e=0;e<10;e++) switch(e) { default: tmp+=e; case 4..8: } ;
if(( _1=( tmp ))==( _2=( "01239" )))
{
if(verbose)
perror("Test 194: tmp=\"\"; for(e=0;e<10;e++) switch(e) { default: tmp+=e; case 4..8: } ; tmp==\"01239\" succeded\n");
}else{
perror("Test 194: tmp=\"\"; for(e=0;e<10;e++) switch(e) { default: tmp+=e; case 4..8: } ; tmp==\"01239\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 195 */
if(verbose) perror("Doing test 195.\n");
if(( _1=( 1 ))==( _2=( floatp(1.7) )))
{
if(verbose)
perror("Test 195: 1==floatp(1.7) succeded\n");
}else{
perror("Test 195: 1==floatp(1.7) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 196 */
if(verbose) perror("Doing test 196.\n");
if(( _1=( 0 ))==( _2=( floatp(7) )))
{
if(verbose)
perror("Test 196: 0==floatp(7) succeded\n");
}else{
perror("Test 196: 0==floatp(7) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 197 */
if(verbose) perror("Doing test 197.\n");
if(( _1=( 1 ))==( _2=( stringp("hej") )))
{
if(verbose)
perror("Test 197: 1==stringp(\"hej\") succeded\n");
}else{
perror("Test 197: 1==stringp(\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 198 */
if(verbose) perror("Doing test 198.\n");
if(( _1=( 0 ))==( _2=( stringp(7) )))
{
if(verbose)
perror("Test 198: 0==stringp(7) succeded\n");
}else{
perror("Test 198: 0==stringp(7) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 199 */
if(verbose) perror("Doing test 199.\n");
if(( _1=( 1 ))==( _2=( intp(7) )))
{
if(verbose)
perror("Test 199: 1==intp(7) succeded\n");
}else{
perror("Test 199: 1==intp(7) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 200 */
if(verbose) perror("Doing test 200.\n");
if(( _1=( 0 ))==( _2=( intp("hej") )))
{
if(verbose)
perror("Test 200: 0==intp(\"hej\") succeded\n");
}else{
perror("Test 200: 0==intp(\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 201 */
if(verbose) perror("Doing test 201.\n");
if(( _1=( ((string)acos(0.7))[0..4] ))==( _2=( "0.795" )))
{
if(verbose)
perror("Test 201: ((string)acos(0.7))[0..4]==\"0.795\" succeded\n");
}else{
perror("Test 201: ((string)acos(0.7))[0..4]==\"0.795\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing add_action(\"qul%s\",lambda(){})\n");
add_action("qul%s",lambda(){});
/* Test 202 */
if(verbose) perror("Doing test 202.\n");
if(( _1=( 0 ))==( _2=( query_actions(this_object(),this_object()) )))
{
if(verbose)
perror("Test 202: 0==query_actions(this_object(),this_object()) succeded\n");
}else{
perror("Test 202: 0==query_actions(this_object(),this_object()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing enable_commands()\n");
enable_commands();
/* Test 203 */
if(verbose) perror("Doing test 203.\n");
if(( _1=( 0 ))==( _2=( sizeof(query_actions(this_object(),this_object())) )))
{
if(verbose)
perror("Test 203: 0==sizeof(query_actions(this_object(),this_object())) succeded\n");
}else{
perror("Test 203: 0==sizeof(query_actions(this_object(),this_object())) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing add_action(\"foo%s\",lambda(){})\n");
add_action("foo%s",lambda(){});
/* Test 204 */
if(verbose) perror("Doing test 204.\n");
if(( _1=( 1 ))==( _2=( sizeof(query_actions(this_object(),this_object())) )))
{
if(verbose)
perror("Test 204: 1==sizeof(query_actions(this_object(),this_object())) succeded\n");
}else{
perror("Test 204: 1==sizeof(query_actions(this_object(),this_object())) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing disable_commands()\n");
disable_commands();
/* Test 205 */
if(verbose) perror("Doing test 205.\n");
if(( _1=( 0 ))==( _2=( query_actions(this_object(),this_object()) )))
{
if(verbose)
perror("Test 205: 0==query_actions(this_object(),this_object()) succeded\n");
}else{
perror("Test 205: 0==query_actions(this_object(),this_object()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing add_simul_efun(\"dump_malloc_data\",lambda() { return 17; })\n");
add_simul_efun("dump_malloc_data",lambda() { return 17; });
/* Test 206 */
if(verbose) perror("Doing test 206.\n");
if(( _1=( clone_object(make_object("function tmp() { return dump_malloc_data(); }"))->tmp() ))==( _2=( 17 )))
{
if(verbose)
perror("Test 206: clone_object(make_object(\"function tmp() { return dump_malloc_data(); }\"))->tmp()==17 succeded\n");
}else{
perror("Test 206: clone_object(make_object(\"function tmp() { return dump_malloc_data(); }\"))->tmp()==17 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing add_simul_efun(\"dump_malloc_data\")\n");
add_simul_efun("dump_malloc_data");
/* Test 207 */
if(verbose) perror("Doing test 207.\n");
if(_1=( stringp(clone_object(make_object("function tmp() { return dump_malloc_data(); }"))->tmp()) ))
{
if(verbose)
perror("Test 207: stringp(clone_object(make_object(\"function tmp() { return dump_malloc_data(); }\"))->tmp()) succeded.\n");
}else{
perror("Test 207: stringp(clone_object(make_object(\"function tmp() { return dump_malloc_data(); }\"))->tmp()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 208 */
if(verbose) perror("Doing test 208.\n");
if(is_equal(_1=( ({}) ),_2=( all_inventory(this_object()) )))
{
if(verbose)
perror("Test 208: is_equal(({}) , all_inventory(this_object())) succeded\n");
}else{
perror("Test 208: is_equal(({}) , all_inventory(this_object())) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing move_object(master())\n");
move_object(master());
/* Test 209 */
if(verbose) perror("Doing test 209.\n");
if(( _1=( 1 ))==( _2=( sizeof(all_inventory(master())) )))
{
if(verbose)
perror("Test 209: 1==sizeof(all_inventory(master())) succeded\n");
}else{
perror("Test 209: 1==sizeof(all_inventory(master())) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 210 */
if(verbose) perror("Doing test 210.\n");
if(( _1=( this_object() ))==( _2=( all_inventory(master())[0] )))
{
if(verbose)
perror("Test 210: this_object()==all_inventory(master())[0] succeded\n");
}else{
perror("Test 210: this_object()==all_inventory(master())[0] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 211 */
if(verbose) perror("Doing test 211.\n");
if(_1=( sizeof(({ 1, 2, })) ))
{
if(verbose)
perror("Test 211: sizeof(({ 1, 2, })) succeded.\n");
}else{
perror("Test 211: sizeof(({ 1, 2, })) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 212 */
if(verbose) perror("Doing test 212.\n");
if(( _1=( 2 ))==( _2=( sizeof(({ 2, 3, })) )))
{
if(verbose)
perror("Test 212: 2==sizeof(({ 2, 3, })) succeded\n");
}else{
perror("Test 212: 2==sizeof(({ 2, 3, })) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 213 */
if(verbose) perror("Doing test 213.\n");
if(( _1=( 7 ))==( _2=( sizeof(allocate(7)) )))
{
if(verbose)
perror("Test 213: 7==sizeof(allocate(7)) succeded\n");
}else{
perror("Test 213: 7==sizeof(allocate(7)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 214 */
if(verbose) perror("Doing test 214.\n");
if(_1=( pointerp(allocate(3,4)[1]) ))
{
if(verbose)
perror("Test 214: pointerp(allocate(3,4)[1]) succeded.\n");
}else{
perror("Test 214: pointerp(allocate(3,4)[1]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 215 */
if(verbose) perror("Doing test 215.\n");
if(( _1=( 17 ))==( _2=( sizeof(allocate(17)) )))
{
if(verbose)
perror("Test 215: 17==sizeof(allocate(17)) succeded\n");
}else{
perror("Test 215: 17==sizeof(allocate(17)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 216 */
if(verbose) perror("Doing test 216.\n");
if(( _1=( 42 ))==( _2=( sizeof(allocate(17,42)[1]) )))
{
if(verbose)
perror("Test 216: 42==sizeof(allocate(17,42)[1]) succeded\n");
}else{
perror("Test 216: 42==sizeof(allocate(17,42)[1]) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 217 */
if(verbose) perror("Doing test 217.\n");
if(_1=( pointerp(array_of_index(allocate(3,4),2)) ))
{
if(verbose)
perror("Test 217: pointerp(array_of_index(allocate(3,4),2)) succeded.\n");
}else{
perror("Test 217: pointerp(array_of_index(allocate(3,4),2)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 218 */
if(verbose) perror("Doing test 218.\n");
if(_1=( floatp(asin(0.7)) ))
{
if(verbose)
perror("Test 218: floatp(asin(0.7)) succeded.\n");
}else{
perror("Test 218: floatp(asin(0.7)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 219 */
if(verbose) perror("Doing test 219.\n");
if(( _1=( asin(0.0) ))==( _2=( 0.0 )))
{
if(verbose)
perror("Test 219: asin(0.0)==0.0 succeded\n");
}else{
perror("Test 219: asin(0.0)==0.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 220 */
if(verbose) perror("Doing test 220.\n");
if(_1=( floatp(atan(0.7)) ))
{
if(verbose)
perror("Test 220: floatp(atan(0.7)) succeded.\n");
}else{
perror("Test 220: floatp(atan(0.7)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 221 */
if(verbose) perror("Doing test 221.\n");
if(( _1=( "3.1415" ))==( _2=( ((string)(4.0*atan(1.0)))[0..5] )))
{
if(verbose)
perror("Test 221: \"3.1415\"==((string)(4.0*atan(1.0)))[0..5] succeded\n");
}else{
perror("Test 221: \"3.1415\"==((string)(4.0*atan(1.0)))[0..5] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing break_point()\n");
break_point();
/* Test 222 */
if(verbose) perror("Doing test 222.\n");
if(( _1=( "foobar" ))==( _2=( call_function(lambda() { return "foobar"; }) )))
{
if(verbose)
perror("Test 222: \"foobar\"==call_function(lambda() { return \"foobar\"; }) succeded\n");
}else{
perror("Test 222: \"foobar\"==call_function(lambda() { return \"foobar\"; }) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 223 */
if(verbose) perror("Doing test 223.\n");
if(( _1=( 0 ))==( _2=( sizeof(call_out_info()) )))
{
if(verbose)
perror("Test 223: 0==sizeof(call_out_info()) succeded\n");
}else{
perror("Test 223: 0==sizeof(call_out_info()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing call_out(call_out_test,7)\n");
call_out(call_out_test,7);
/* Test 224 */
if(verbose) perror("Doing test 224.\n");
if(_1=( 4<find_call_out(call_out_test) ))
{
if(verbose)
perror("Test 224: 4<find_call_out(call_out_test) succeded.\n");
}else{
perror("Test 224: 4<find_call_out(call_out_test) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 225 */
if(verbose) perror("Doing test 225.\n");
if(( _1=( 1 ))==( _2=( sizeof(call_out_info()) )))
{
if(verbose)
perror("Test 225: 1==sizeof(call_out_info()) succeded\n");
}else{
perror("Test 225: 1==sizeof(call_out_info()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 226 */
if(verbose) perror("Doing test 226.\n");
if(_1=( pointerp(call_out_info()[0]) ))
{
if(verbose)
perror("Test 226: pointerp(call_out_info()[0]) succeded.\n");
}else{
perror("Test 226: pointerp(call_out_info()[0]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 227 */
if(verbose) perror("Doing test 227.\n");
if(_1=( intp(call_out_info()[0][0]) ))
{
if(verbose)
perror("Test 227: intp(call_out_info()[0][0]) succeded.\n");
}else{
perror("Test 227: intp(call_out_info()[0][0]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 228 */
if(verbose) perror("Doing test 228.\n");
if(_1=( objectp(call_out_info()[0][1])||(0==call_out_info()[0][1]) ))
{
if(verbose)
perror("Test 228: objectp(call_out_info()[0][1])||(0==call_out_info()[0][1]) succeded.\n");
}else{
perror("Test 228: objectp(call_out_info()[0][1])||(0==call_out_info()[0][1]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 229 */
if(verbose) perror("Doing test 229.\n");
if(_1=( functionp(call_out_info()[0][2]) ))
{
if(verbose)
perror("Test 229: functionp(call_out_info()[0][2]) succeded.\n");
}else{
perror("Test 229: functionp(call_out_info()[0][2]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 230 */
if(verbose) perror("Doing test 230.\n");
if(( _1=( 3 ))==( _2=( sizeof(call_out_info()[0]) )))
{
if(verbose)
perror("Test 230: 3==sizeof(call_out_info()[0]) succeded\n");
}else{
perror("Test 230: 3==sizeof(call_out_info()[0]) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 231 */
if(verbose) perror("Doing test 231.\n");
if(( _1=( capitalize("hej") ))==( _2=( "Hej" )))
{
if(verbose)
perror("Test 231: capitalize(\"hej\")==\"Hej\" succeded\n");
}else{
perror("Test 231: capitalize(\"hej\")==\"Hej\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 232 */
if(verbose) perror("Doing test 232.\n");
if(( _1=( 0 ))==( _2=( catch(1+2) )))
{
if(verbose)
perror("Test 232: 0==catch(1+2) succeded\n");
}else{
perror("Test 232: 0==catch(1+2) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 233 */
if(verbose) perror("Doing test 233.\n");
if(_1=( stringp(catch(0->hej())) ))
{
if(verbose)
perror("Test 233: stringp(catch(0->hej())) succeded.\n");
}else{
perror("Test 233: stringp(catch(0->hej())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 234 */
if(verbose) perror("Doing test 234.\n");
if(( _1=( "hej" ))==( _2=( catch(throw("hej")) )))
{
if(verbose)
perror("Test 234: \"hej\"==catch(throw(\"hej\")) succeded\n");
}else{
perror("Test 234: \"hej\"==catch(throw(\"hej\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 235 */
if(verbose) perror("Doing test 235.\n");
if(( _1=( "*Bad argument 1 to get_function()\n" ))==( _2=( catch(0->hej()) )))
{
if(verbose)
perror("Test 235: \"*Bad argument 1 to get_function()\\n\"==catch(0->hej()) succeded\n");
}else{
perror("Test 235: \"*Bad argument 1 to get_function()\\n\"==catch(0->hej()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
int zero;
int oneperzero;
if(verbose)
perror("Doing zero=0\n");
zero=0;
/* Test 236 */
if(verbose) perror("Doing test 236.\n");
if(( _1=( "*Division by zero\n" ))==( _2=( catch(oneperzero=1/zero) )))
{
if(verbose)
perror("Test 236: \"*Division by zero\\n\"==catch(oneperzero=1/zero) succeded\n");
}else{
perror("Test 236: \"*Division by zero\\n\"==catch(oneperzero=1/zero) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 237 */
if(verbose) perror("Doing test 237.\n");
if(( _1=( 0 ))==( _2=( cd(EXISTINGDIRECTORY) )))
{
if(verbose)
perror("Test 237: 0==cd(EXISTINGDIRECTORY) succeded\n");
}else{
perror("Test 237: 0==cd(EXISTINGDIRECTORY) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 238 */
if(verbose) perror("Doing test 238.\n");
if(_1=( cd(NONEXISTINGDIRECTORY) ))
{
if(verbose)
perror("Test 238: cd(NONEXISTINGDIRECTORY) succeded.\n");
}else{
perror("Test 238: cd(NONEXISTINGDIRECTORY) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 239 */
if(verbose) perror("Doing test 239.\n");
if(_1=( floatp(ceil(0.7)) ))
{
if(verbose)
perror("Test 239: floatp(ceil(0.7)) succeded.\n");
}else{
perror("Test 239: floatp(ceil(0.7)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 240 */
if(verbose) perror("Doing test 240.\n");
if(_1=( intp(clone_number(this_object())) ))
{
if(verbose)
perror("Test 240: intp(clone_number(this_object())) succeded.\n");
}else{
perror("Test 240: intp(clone_number(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 241 */
if(verbose) perror("Doing test 241.\n");
if(( _1=( 4711 ))==( _2=( clone_object(make_object("int a(){return 4711;}"))->a() )))
{
if(verbose)
perror("Test 241: 4711==clone_object(make_object(\"int a(){return 4711;}\"))->a() succeded\n");
}else{
perror("Test 241: 4711==clone_object(make_object(\"int a(){return 4711;}\"))->a() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 242 */
if(verbose) perror("Doing test 242.\n");
if(_1=( stringp(code_value(this_object())) ))
{
if(verbose)
perror("Test 242: stringp(code_value(this_object())) succeded.\n");
}else{
perror("Test 242: stringp(code_value(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 243 */
if(verbose) perror("Doing test 243.\n");
if(_1=( intp(command("hej")) ))
{
if(verbose)
perror("Test 243: intp(command(\"hej\")) succeded.\n");
}else{
perror("Test 243: intp(command(\"hej\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 244 */
if(verbose) perror("Doing test 244.\n");
if(_1=( intp(command("hej",this_object())) ))
{
if(verbose)
perror("Test 244: intp(command(\"hej\",this_object())) succeded.\n");
}else{
perror("Test 244: intp(command(\"hej\",this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 245 */
if(verbose) perror("Doing test 245.\n");
if(_1=( floatp(cos(1.7)) ))
{
if(verbose)
perror("Test 245: floatp(cos(1.7)) succeded.\n");
}else{
perror("Test 245: floatp(cos(1.7)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 246 */
if(verbose) perror("Doing test 246.\n");
if(_1=( intp(created(this_object())) ))
{
if(verbose)
perror("Test 246: intp(created(this_object())) succeded.\n");
}else{
perror("Test 246: intp(created(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 247 */
if(verbose) perror("Doing test 247.\n");
if(_1=( created(this_object())<=time() ))
{
if(verbose)
perror("Test 247: created(this_object())<=time() succeded.\n");
}else{
perror("Test 247: created(this_object())<=time() failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 248 */
if(verbose) perror("Doing test 248.\n");
if(_1=( stringp(crypt("hej",0)) ))
{
if(verbose)
perror("Test 248: stringp(crypt(\"hej\",0)) succeded.\n");
}else{
perror("Test 248: stringp(crypt(\"hej\",0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 249 */
if(verbose) perror("Doing test 249.\n");
if(_1=( stringp(crypt("hej","//")) ))
{
if(verbose)
perror("Test 249: stringp(crypt(\"hej\",\"//\")) succeded.\n");
}else{
perror("Test 249: stringp(crypt(\"hej\",\"//\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 250 */
if(verbose) perror("Doing test 250.\n");
if(( _1=( tmp=crypt("hej",0) ))==( _2=( crypt("hej",tmp) )))
{
if(verbose)
perror("Test 250: tmp=crypt(\"hej\",0)==crypt(\"hej\",tmp) succeded\n");
}else{
perror("Test 250: tmp=crypt(\"hej\",0)==crypt(\"hej\",tmp) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 251 */
if(verbose) perror("Doing test 251.\n");
if(_1=( stringp(ctime(7483291)) ))
{
if(verbose)
perror("Test 251: stringp(ctime(7483291)) succeded.\n");
}else{
perror("Test 251: stringp(ctime(7483291)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 252 */
if(verbose) perror("Doing test 252.\n");
if(_1=( stringp(ctime(time())) ))
{
if(verbose)
perror("Test 252: stringp(ctime(time())) succeded.\n");
}else{
perror("Test 252: stringp(ctime(time())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing rm(\"test-database\")\n");
rm("test-database");
/* Test 253 */
if(verbose) perror("Doing test 253.\n");
if(( _1=( 0 ))==( _2=( rm("test-database") )))
{
if(verbose)
perror("Test 253: 0==rm(\"test-database\") succeded\n");
}else{
perror("Test 253: 0==rm(\"test-database\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 254 */
if(verbose) perror("Doing test 254.\n");
if(_1=( pointerp(db_indices("test-database")) ))
{
if(verbose)
perror("Test 254: pointerp(db_indices(\"test-database\")) succeded.\n");
}else{
perror("Test 254: pointerp(db_indices(\"test-database\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 255 */
if(verbose) perror("Doing test 255.\n");
if(( _1=( 0 ))==( _2=( db_get("test-database","hej") )))
{
if(verbose)
perror("Test 255: 0==db_get(\"test-database\",\"hej\") succeded\n");
}else{
perror("Test 255: 0==db_get(\"test-database\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 256 */
if(verbose) perror("Doing test 256.\n");
if(_1=( pointerp(db_indices("test-database")) ))
{
if(verbose)
perror("Test 256: pointerp(db_indices(\"test-database\")) succeded.\n");
}else{
perror("Test 256: pointerp(db_indices(\"test-database\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 257 */
if(verbose) perror("Doing test 257.\n");
if(( _1=( 1 ))==( _2=( rm("test-database") )))
{
if(verbose)
perror("Test 257: 1==rm(\"test-database\") succeded\n");
}else{
perror("Test 257: 1==rm(\"test-database\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 258 */
if(verbose) perror("Doing test 258.\n");
if(( _1=( 1 ))==( _2=( db_set("test-database","hej","hoj") )))
{
if(verbose)
perror("Test 258: 1==db_set(\"test-database\",\"hej\",\"hoj\") succeded\n");
}else{
perror("Test 258: 1==db_set(\"test-database\",\"hej\",\"hoj\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 259 */
if(verbose) perror("Doing test 259.\n");
if(_1=( pointerp(db_indices("test-database")) ))
{
if(verbose)
perror("Test 259: pointerp(db_indices(\"test-database\")) succeded.\n");
}else{
perror("Test 259: pointerp(db_indices(\"test-database\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 260 */
if(verbose) perror("Doing test 260.\n");
if(( _1=( 1 ))==( _2=( sizeof(db_indices("test-database")) )))
{
if(verbose)
perror("Test 260: 1==sizeof(db_indices(\"test-database\")) succeded\n");
}else{
perror("Test 260: 1==sizeof(db_indices(\"test-database\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 261 */
if(verbose) perror("Doing test 261.\n");
if(( _1=( "hej" ))==( _2=( db_indices("test-database")[0] )))
{
if(verbose)
perror("Test 261: \"hej\"==db_indices(\"test-database\")[0] succeded\n");
}else{
perror("Test 261: \"hej\"==db_indices(\"test-database\")[0] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 262 */
if(verbose) perror("Doing test 262.\n");
if(( _1=( "hoj" ))==( _2=( db_get("test-database","hej") )))
{
if(verbose)
perror("Test 262: \"hoj\"==db_get(\"test-database\",\"hej\") succeded\n");
}else{
perror("Test 262: \"hoj\"==db_get(\"test-database\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 263 */
if(verbose) perror("Doing test 263.\n");
if(( _1=( 1 ))==( _2=( db_delete("test-database","hej") )))
{
if(verbose)
perror("Test 263: 1==db_delete(\"test-database\",\"hej\") succeded\n");
}else{
perror("Test 263: 1==db_delete(\"test-database\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 264 */
if(verbose) perror("Doing test 264.\n");
if(( _1=( 0 ))==( _2=( sizeof(db_indices("test-database")) )))
{
if(verbose)
perror("Test 264: 0==sizeof(db_indices(\"test-database\")) succeded\n");
}else{
perror("Test 264: 0==sizeof(db_indices(\"test-database\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing rm(\"test-database\")\n");
rm("test-database");
/* Test 265 */
if(verbose) perror("Doing test 265.\n");
if(( _1=( 1 ))==( _2=( db_set("test-database1","hej","hoj") )))
{
if(verbose)
perror("Test 265: 1==db_set(\"test-database1\",\"hej\",\"hoj\") succeded\n");
}else{
perror("Test 265: 1==db_set(\"test-database1\",\"hej\",\"hoj\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 266 */
if(verbose) perror("Doing test 266.\n");
if(( _1=( 1 ))==( _2=( db_set("test-database2","hej","hij") )))
{
if(verbose)
perror("Test 266: 1==db_set(\"test-database2\",\"hej\",\"hij\") succeded\n");
}else{
perror("Test 266: 1==db_set(\"test-database2\",\"hej\",\"hij\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 267 */
if(verbose) perror("Doing test 267.\n");
if(( _1=( "hej" ))==( _2=( db_indices("test-database1")[0] )))
{
if(verbose)
perror("Test 267: \"hej\"==db_indices(\"test-database1\")[0] succeded\n");
}else{
perror("Test 267: \"hej\"==db_indices(\"test-database1\")[0] failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 268 */
if(verbose) perror("Doing test 268.\n");
if(( _1=( "hoj" ))==( _2=( db_get("test-database1","hej") )))
{
if(verbose)
perror("Test 268: \"hoj\"==db_get(\"test-database1\",\"hej\") succeded\n");
}else{
perror("Test 268: \"hoj\"==db_get(\"test-database1\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 269 */
if(verbose) perror("Doing test 269.\n");
if(( _1=( "hij" ))==( _2=( db_get("test-database2","hej") )))
{
if(verbose)
perror("Test 269: \"hij\"==db_get(\"test-database2\",\"hej\") succeded\n");
}else{
perror("Test 269: \"hij\"==db_get(\"test-database2\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 270 */
if(verbose) perror("Doing test 270.\n");
if(( _1=( 1 ))==( _2=( db_delete("test-database2","hej") )))
{
if(verbose)
perror("Test 270: 1==db_delete(\"test-database2\",\"hej\") succeded\n");
}else{
perror("Test 270: 1==db_delete(\"test-database2\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 271 */
if(verbose) perror("Doing test 271.\n");
if(( _1=( 0 ))==( _2=( db_get("test-database2","hej") )))
{
if(verbose)
perror("Test 271: 0==db_get(\"test-database2\",\"hej\") succeded\n");
}else{
perror("Test 271: 0==db_get(\"test-database2\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 272 */
if(verbose) perror("Doing test 272.\n");
if(( _1=( "hoj" ))==( _2=( db_get("test-database1","hej") )))
{
if(verbose)
perror("Test 272: \"hoj\"==db_get(\"test-database1\",\"hej\") succeded\n");
}else{
perror("Test 272: \"hoj\"==db_get(\"test-database1\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 273 */
if(verbose) perror("Doing test 273.\n");
if(( _1=( 0 ))==( _2=( db_get("test-database2","hej") )))
{
if(verbose)
perror("Test 273: 0==db_get(\"test-database2\",\"hej\") succeded\n");
}else{
perror("Test 273: 0==db_get(\"test-database2\",\"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing rm(\"test-database1\")\n");
rm("test-database1");
if(verbose)
perror("Doing rm(\"test-database2\")\n");
rm("test-database2");
/* Test 274 */
if(verbose) perror("Doing test 274.\n");
if(_1=( stringp(debug_info(0,this_object())) ))
{
if(verbose)
perror("Test 274: stringp(debug_info(0,this_object())) succeded.\n");
}else{
perror("Test 274: stringp(debug_info(0,this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 275 */
if(verbose) perror("Doing test 275.\n");
if(_1=( stringp(debug_info(1,this_object())) ))
{
if(verbose)
perror("Test 275: stringp(debug_info(1,this_object())) succeded.\n");
}else{
perror("Test 275: stringp(debug_info(1,this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 276 */
if(verbose) perror("Doing test 276.\n");
if(is_equal(_1=( 7 ),_2=( 7 )))
{
if(verbose)
perror("Test 276: is_equal(7 , 7) succeded\n");
}else{
perror("Test 276: is_equal(7 , 7) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 277 */
if(verbose) perror("Doing test 277.\n");
if(is_equal(_1=( "hej" ),_2=( "hej" )))
{
if(verbose)
perror("Test 277: is_equal(\"hej\" , \"hej\") succeded\n");
}else{
perror("Test 277: is_equal(\"hej\" , \"hej\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 278 */
if(verbose) perror("Doing test 278.\n");
if(_1=( !is_equal("hej","hej2") ))
{
if(verbose)
perror("Test 278: !is_equal(\"hej\",\"hej2\") succeded.\n");
}else{
perror("Test 278: !is_equal(\"hej\",\"hej2\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 279 */
if(verbose) perror("Doing test 279.\n");
if(is_equal(_1=( ({1,"hej",}) ),_2=( ({1,"hej"}) )))
{
if(verbose)
perror("Test 279: is_equal(({1,\"hej\",}) , ({1,\"hej\"})) succeded\n");
}else{
perror("Test 279: is_equal(({1,\"hej\",}) , ({1,\"hej\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 280 */
if(verbose) perror("Doing test 280.\n");
if(_1=( !is_equal(({7,"hej",}),({7.1,"hej"})) ))
{
if(verbose)
perror("Test 280: !is_equal(({7,\"hej\",}),({7.1,\"hej\"})) succeded.\n");
}else{
perror("Test 280: !is_equal(({7,\"hej\",}),({7.1,\"hej\"})) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 281 */
if(verbose) perror("Doing test 281.\n");
if(( _1=( 7 ))==( _2=( decode_value(code_value(7)) )))
{
if(verbose)
perror("Test 281: 7==decode_value(code_value(7)) succeded\n");
}else{
perror("Test 281: 7==decode_value(code_value(7)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 282 */
if(verbose) perror("Doing test 282.\n");
if(( _1=( 7.0 ))==( _2=( decode_value(code_value(7.0)) )))
{
if(verbose)
perror("Test 282: 7.0==decode_value(code_value(7.0)) succeded\n");
}else{
perror("Test 282: 7.0==decode_value(code_value(7.0)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 283 */
if(verbose) perror("Doing test 283.\n");
if(( _1=( 7.1 ))==( _2=( decode_value(code_value(7.1)) )))
{
if(verbose)
perror("Test 283: 7.1==decode_value(code_value(7.1)) succeded\n");
}else{
perror("Test 283: 7.1==decode_value(code_value(7.1)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 284 */
if(verbose) perror("Doing test 284.\n");
if(( _1=( this_object()->main ))==( _2=( decode_value(code_value(this_object()->main)) )))
{
if(verbose)
perror("Test 284: this_object()->main==decode_value(code_value(this_object()->main)) succeded\n");
}else{
perror("Test 284: this_object()->main==decode_value(code_value(this_object()->main)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 285 */
if(verbose) perror("Doing test 285.\n");
if(( _1=( this_object() ))==( _2=( decode_value(code_value(this_object())) )))
{
if(verbose)
perror("Test 285: this_object()==decode_value(code_value(this_object())) succeded\n");
}else{
perror("Test 285: this_object()==decode_value(code_value(this_object())) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 286 */
if(verbose) perror("Doing test 286.\n");
if(( _1=( "hej" ))==( _2=( decode_value(code_value("hej")) )))
{
if(verbose)
perror("Test 286: \"hej\"==decode_value(code_value(\"hej\")) succeded\n");
}else{
perror("Test 286: \"hej\"==decode_value(code_value(\"hej\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
mixed * arr = ({ 1, 7.1, 7.0, "hej", this_object()->main, });
/* Test 287 */
if(verbose) perror("Doing test 287.\n");
if(is_equal(_1=( arr ),_2=( decode_value(code_value(arr)) )))
{
if(verbose)
perror("Test 287: is_equal(arr , decode_value(code_value(arr))) succeded\n");
}else{
perror("Test 287: is_equal(arr , decode_value(code_value(arr))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
mapping map = ([ ]);
if(verbose)
perror("Doing map[1]=\"ett\"\n");
map[1]="ett";
if(verbose)
perror("Doing map[this_object()->main]=\"main\"\n");
map[this_object()->main]="main";
/* Test 288 */
if(verbose) perror("Doing test 288.\n");
if(is_equal(_1=( map ),_2=( map )))
{
if(verbose)
perror("Test 288: is_equal(map , map) succeded\n");
}else{
perror("Test 288: is_equal(map , map) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
mapping map2 = copy_value(map);
/* Test 289 */
if(verbose) perror("Doing test 289.\n");
if(is_equal(_1=( map ),_2=( map2 )))
{
if(verbose)
perror("Test 289: is_equal(map , map2) succeded\n");
}else{
perror("Test 289: is_equal(map , map2) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 290 */
if(verbose) perror("Doing test 290.\n");
if(_1=( map!=map2 ))
{
if(verbose)
perror("Test 290: map!=map2 succeded.\n");
}else{
perror("Test 290: map!=map2 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing map2[\"skiljeelement\"]=18\n");
map2["skiljeelement"]=18;
/* Test 291 */
if(verbose) perror("Doing test 291.\n");
if(_1=( !is_equal(map,map2) ))
{
if(verbose)
perror("Test 291: !is_equal(map,map2) succeded.\n");
}else{
perror("Test 291: !is_equal(map,map2) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 292 */
if(verbose) perror("Doing test 292.\n");
if(is_equal(_1=( map ),_2=( decode_value(code_value(map)) )))
{
if(verbose)
perror("Test 292: is_equal(map , decode_value(code_value(map))) succeded\n");
}else{
perror("Test 292: is_equal(map , decode_value(code_value(map))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 293 */
if(verbose) perror("Doing test 293.\n");
if(_1=( stringp(dump_heart_beat_data(0)) ))
{
if(verbose)
perror("Test 293: stringp(dump_heart_beat_data(0)) succeded.\n");
}else{
perror("Test 293: stringp(dump_heart_beat_data(0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 294 */
if(verbose) perror("Doing test 294.\n");
if(_1=( stringp(dump_heart_beat_data(1)) ))
{
if(verbose)
perror("Test 294: stringp(dump_heart_beat_data(1)) succeded.\n");
}else{
perror("Test 294: stringp(dump_heart_beat_data(1)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 295 */
if(verbose) perror("Doing test 295.\n");
if(_1=( stringp(dump_index_table_data(0)) ))
{
if(verbose)
perror("Test 295: stringp(dump_index_table_data(0)) succeded.\n");
}else{
perror("Test 295: stringp(dump_index_table_data(0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 296 */
if(verbose) perror("Doing test 296.\n");
if(_1=( stringp(dump_index_table_data(1)) ))
{
if(verbose)
perror("Test 296: stringp(dump_index_table_data(1)) succeded.\n");
}else{
perror("Test 296: stringp(dump_index_table_data(1)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 297 */
if(verbose) perror("Doing test 297.\n");
if(_1=( stringp(dump_malloc_data()) ))
{
if(verbose)
perror("Test 297: stringp(dump_malloc_data()) succeded.\n");
}else{
perror("Test 297: stringp(dump_malloc_data()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 298 */
if(verbose) perror("Doing test 298.\n");
if(_1=( stringp(dump_prog_table_data(0)) ))
{
if(verbose)
perror("Test 298: stringp(dump_prog_table_data(0)) succeded.\n");
}else{
perror("Test 298: stringp(dump_prog_table_data(0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 299 */
if(verbose) perror("Doing test 299.\n");
if(_1=( stringp(dump_prog_table_data(1)) ))
{
if(verbose)
perror("Test 299: stringp(dump_prog_table_data(1)) succeded.\n");
}else{
perror("Test 299: stringp(dump_prog_table_data(1)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 300 */
if(verbose) perror("Doing test 300.\n");
if(_1=( stringp(dump_socket_status()) ))
{
if(verbose)
perror("Test 300: stringp(dump_socket_status()) succeded.\n");
}else{
perror("Test 300: stringp(dump_socket_status()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 301 */
if(verbose) perror("Doing test 301.\n");
if(_1=( stringp(dump_string_data(0)) ))
{
if(verbose)
perror("Test 301: stringp(dump_string_data(0)) succeded.\n");
}else{
perror("Test 301: stringp(dump_string_data(0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 302 */
if(verbose) perror("Doing test 302.\n");
if(_1=( stringp(dump_string_data(1)) ))
{
if(verbose)
perror("Test 302: stringp(dump_string_data(1)) succeded.\n");
}else{
perror("Test 302: stringp(dump_string_data(1)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 303 */
if(verbose) perror("Doing test 303.\n");
if(_1=( stringp(dumpallobj()) ))
{
if(verbose)
perror("Test 303: stringp(dumpallobj()) succeded.\n");
}else{
perror("Test 303: stringp(dumpallobj()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 304 */
if(verbose) perror("Doing test 304.\n");
if(( _1=( environment() ))==( _2=( environment(this_object()) )))
{
if(verbose)
perror("Test 304: environment()==environment(this_object()) succeded\n");
}else{
perror("Test 304: environment()==environment(this_object()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing move_object(master())\n");
move_object(master());
/* Test 305 */
if(verbose) perror("Doing test 305.\n");
if(( _1=( environment() ))==( _2=( master() )))
{
if(verbose)
perror("Test 305: environment()==master() succeded\n");
}else{
perror("Test 305: environment()==master() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 306 */
if(verbose) perror("Doing test 306.\n");
if(_1=( floatp(exp(1.7)) ))
{
if(verbose)
perror("Test 306: floatp(exp(1.7)) succeded.\n");
}else{
perror("Test 306: floatp(exp(1.7)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 307 */
if(verbose) perror("Doing test 307.\n");
if(is_equal(_1=( ({"a","b","c",}) ),_2=( explode("anna bnna c","nna ") )))
{
if(verbose)
perror("Test 307: is_equal(({\"a\",\"b\",\"c\",}) , explode(\"anna bnna c\",\"nna \")) succeded\n");
}else{
perror("Test 307: is_equal(({\"a\",\"b\",\"c\",}) , explode(\"anna bnna c\",\"nna \")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 308 */
if(verbose) perror("Doing test 308.\n");
if(is_equal(_1=( ({"","",}) ),_2=( explode("hej","hej") )))
{
if(verbose)
perror("Test 308: is_equal(({\"\",\"\",}) , explode(\"hej\",\"hej\")) succeded\n");
}else{
perror("Test 308: is_equal(({\"\",\"\",}) , explode(\"hej\",\"hej\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 309 */
if(verbose) perror("Doing test 309.\n");
if(is_equal(_1=( ({"",}) ),_2=( explode("","hej") )))
{
if(verbose)
perror("Test 309: is_equal(({\"\",}) , explode(\"\",\"hej\")) succeded\n");
}else{
perror("Test 309: is_equal(({\"\",}) , explode(\"\",\"hej\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 310 */
if(verbose) perror("Doing test 310.\n");
if(_1=( intp(file_length(EXISTINGFILE)) ))
{
if(verbose)
perror("Test 310: intp(file_length(EXISTINGFILE)) succeded.\n");
}else{
perror("Test 310: intp(file_length(EXISTINGFILE)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 311 */
if(verbose) perror("Doing test 311.\n");
if(_1=( stringp(file_name(this_object())) ))
{
if(verbose)
perror("Test 311: stringp(file_name(this_object())) succeded.\n");
}else{
perror("Test 311: stringp(file_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 312 */
if(verbose) perror("Doing test 312.\n");
if(_1=( intp(file_size(EXISTINGFILE)) ))
{
if(verbose)
perror("Test 312: intp(file_size(EXISTINGFILE)) succeded.\n");
}else{
perror("Test 312: intp(file_size(EXISTINGFILE)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 313 */
if(verbose) perror("Doing test 313.\n");
if(_1=( intp(file_size(NONEXISTINGFILE)) ))
{
if(verbose)
perror("Test 313: intp(file_size(NONEXISTINGFILE)) succeded.\n");
}else{
perror("Test 313: intp(file_size(NONEXISTINGFILE)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 314 */
if(verbose) perror("Doing test 314.\n");
if(_1=( pointerp(file_stat(EXISTINGFILE)) ))
{
if(verbose)
perror("Test 314: pointerp(file_stat(EXISTINGFILE)) succeded.\n");
}else{
perror("Test 314: pointerp(file_stat(EXISTINGFILE)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 315 */
if(verbose) perror("Doing test 315.\n");
if(( _1=( 5 ))==( _2=( sizeof(file_stat(EXISTINGFILE)) )))
{
if(verbose)
perror("Test 315: 5==sizeof(file_stat(EXISTINGFILE)) succeded\n");
}else{
perror("Test 315: 5==sizeof(file_stat(EXISTINGFILE)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 316 */
if(verbose) perror("Doing test 316.\n");
if(_1=( intp(file_stat(EXISTINGFILE)[0]) ))
{
if(verbose)
perror("Test 316: intp(file_stat(EXISTINGFILE)[0]) succeded.\n");
}else{
perror("Test 316: intp(file_stat(EXISTINGFILE)[0]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 317 */
if(verbose) perror("Doing test 317.\n");
if(_1=( intp(file_stat(EXISTINGFILE)[1]) ))
{
if(verbose)
perror("Test 317: intp(file_stat(EXISTINGFILE)[1]) succeded.\n");
}else{
perror("Test 317: intp(file_stat(EXISTINGFILE)[1]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 318 */
if(verbose) perror("Doing test 318.\n");
if(_1=( intp(file_stat(EXISTINGFILE)[2]) ))
{
if(verbose)
perror("Test 318: intp(file_stat(EXISTINGFILE)[2]) succeded.\n");
}else{
perror("Test 318: intp(file_stat(EXISTINGFILE)[2]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 319 */
if(verbose) perror("Doing test 319.\n");
if(_1=( intp(file_stat(EXISTINGFILE)[3]) ))
{
if(verbose)
perror("Test 319: intp(file_stat(EXISTINGFILE)[3]) succeded.\n");
}else{
perror("Test 319: intp(file_stat(EXISTINGFILE)[3]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 320 */
if(verbose) perror("Doing test 320.\n");
if(_1=( intp(file_stat(EXISTINGFILE)[4]) ))
{
if(verbose)
perror("Test 320: intp(file_stat(EXISTINGFILE)[4]) succeded.\n");
}else{
perror("Test 320: intp(file_stat(EXISTINGFILE)[4]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 321 */
if(verbose) perror("Doing test 321.\n");
if(is_equal(_1=( ({"a","b"}) ),_2=( filter_array(({"a","b",0,0,0}),lambda(mixed a){return a;}) )))
{
if(verbose)
perror("Test 321: is_equal(({\"a\",\"b\"}) , filter_array(({\"a\",\"b\",0,0,0}),lambda(mixed a){return a;})) succeded\n");
}else{
perror("Test 321: is_equal(({\"a\",\"b\"}) , filter_array(({\"a\",\"b\",0,0,0}),lambda(mixed a){return a;})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
object foo_o=clone_object(make_object("mixed foo(mixed a ){ return ({\"a\",\"b\"}); }"));
function o_foo=foo_o->foo;
/* Test 322 */
if(verbose) perror("Doing test 322.\n");
if(is_equal(_1=( ({foo_o}) ),_2=( filter_array(({foo_o,0,""}),"foo") )))
{
if(verbose)
perror("Test 322: is_equal(({foo_o}) , filter_array(({foo_o,0,\"\"}),\"foo\")) succeded\n");
}else{
perror("Test 322: is_equal(({foo_o}) , filter_array(({foo_o,0,\"\"}),\"foo\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 323 */
if(verbose) perror("Doing test 323.\n");
if(is_equal(_1=( ({o_foo}) ),_2=( filter_array(({o_foo,0,""}),-1) )))
{
if(verbose)
perror("Test 323: is_equal(({o_foo}) , filter_array(({o_foo,0,\"\"}),-1)) succeded\n");
}else{
perror("Test 323: is_equal(({o_foo}) , filter_array(({o_foo,0,\"\"}),-1)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 324 */
if(verbose) perror("Doing test 324.\n");
if(is_equal(_1=( (["a":"b"]) ),_2=( filter_mapping((["a":"b",0:0]),lambda(mixed a){return a;}) )))
{
if(verbose)
perror("Test 324: is_equal(([\"a\":\"b\"]) , filter_mapping(([\"a\":\"b\",0:0]),lambda(mixed a){return a;})) succeded\n");
}else{
perror("Test 324: is_equal(([\"a\":\"b\"]) , filter_mapping(([\"a\":\"b\",0:0]),lambda(mixed a){return a;})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 325 */
if(verbose) perror("Doing test 325.\n");
if(is_equal(_1=( ({foo_o}) ),_2=( m_values(filter_mapping((["a":foo_o,0:""]),"foo")) )))
{
if(verbose)
perror("Test 325: is_equal(({foo_o}) , m_values(filter_mapping(([\"a\":foo_o,0:\"\"]),\"foo\"))) succeded\n");
}else{
perror("Test 325: is_equal(({foo_o}) , m_values(filter_mapping(([\"a\":foo_o,0:\"\"]),\"foo\"))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 326 */
if(verbose) perror("Doing test 326.\n");
if(is_equal(_1=( ({o_foo}) ),_2=( m_values(filter_mapping((["a":o_foo,0:""]),-1)) )))
{
if(verbose)
perror("Test 326: is_equal(({o_foo}) , m_values(filter_mapping(([\"a\":o_foo,0:\"\"]),-1))) succeded\n");
}else{
perror("Test 326: is_equal(({o_foo}) , m_values(filter_mapping(([\"a\":o_foo,0:\"\"]),-1))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 327 */
if(verbose) perror("Doing test 327.\n");
if(( _1=( first_inventory(master()) ))==( _2=( this_object() )))
{
if(verbose)
perror("Test 327: first_inventory(master())==this_object() succeded\n");
}else{
perror("Test 327: first_inventory(master())==this_object() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 328 */
if(verbose) perror("Doing test 328.\n");
if(( _1=( first_inventory(this_object()) ))==( _2=( 0 )))
{
if(verbose)
perror("Test 328: first_inventory(this_object())==0 succeded\n");
}else{
perror("Test 328: first_inventory(this_object())==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 329 */
if(verbose) perror("Doing test 329.\n");
if(_1=( floatp(floor(17.7)) ))
{
if(verbose)
perror("Test 329: floatp(floor(17.7)) succeded.\n");
}else{
perror("Test 329: floatp(floor(17.7)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 330 */
if(verbose) perror("Doing test 330.\n");
if(( _1=( 2 ))==( _2=( function_args(lambda(int a,int b) {}) )))
{
if(verbose)
perror("Test 330: 2==function_args(lambda(int a,int b) {}) succeded\n");
}else{
perror("Test 330: 2==function_args(lambda(int a,int b) {}) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 331 */
if(verbose) perror("Doing test 331.\n");
if(_1=( stringp(function_exists("main",this_object())) ))
{
if(verbose)
perror("Test 331: stringp(function_exists(\"main\",this_object())) succeded.\n");
}else{
perror("Test 331: stringp(function_exists(\"main\",this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 332 */
if(verbose) perror("Doing test 332.\n");
if(( _1=( 0 ))==( _2=( function_exists("nonexistingfunction",this_object()) )))
{
if(verbose)
perror("Test 332: 0==function_exists(\"nonexistingfunction\",this_object()) succeded\n");
}else{
perror("Test 332: 0==function_exists(\"nonexistingfunction\",this_object()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 333 */
if(verbose) perror("Doing test 333.\n");
if(( _1=( "main" ))==( _2=( function_name(this_object()->main) )))
{
if(verbose)
perror("Test 333: \"main\"==function_name(this_object()->main) succeded\n");
}else{
perror("Test 333: \"main\"==function_name(this_object()->main) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 334 */
if(verbose) perror("Doing test 334.\n");
if(_1=( objectp(function_object(this_object()->main)) ))
{
if(verbose)
perror("Test 334: objectp(function_object(this_object()->main)) succeded.\n");
}else{
perror("Test 334: objectp(function_object(this_object()->main)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 335 */
if(verbose) perror("Doing test 335.\n");
if(_1=( functionp(this_object()->main) ))
{
if(verbose)
perror("Test 335: functionp(this_object()->main) succeded.\n");
}else{
perror("Test 335: functionp(this_object()->main) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 336 */
if(verbose) perror("Doing test 336.\n");
if(_1=( !functionp(7) ))
{
if(verbose)
perror("Test 336: !functionp(7) succeded.\n");
}else{
perror("Test 336: !functionp(7) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 337 */
if(verbose) perror("Doing test 337.\n");
if(_1=( !functionp("hej") ))
{
if(verbose)
perror("Test 337: !functionp(\"hej\") succeded.\n");
}else{
perror("Test 337: !functionp(\"hej\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 338 */
if(verbose) perror("Doing test 338.\n");
if(_1=( !functionp(({this_object(),"main",})) ))
{
if(verbose)
perror("Test 338: !functionp(({this_object(),\"main\",})) succeded.\n");
}else{
perror("Test 338: !functionp(({this_object(),\"main\",})) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 339 */
if(verbose) perror("Doing test 339.\n");
if(_1=( intp(fuzzymatch("foo","bar")) ))
{
if(verbose)
perror("Test 339: intp(fuzzymatch(\"foo\",\"bar\")) succeded.\n");
}else{
perror("Test 339: intp(fuzzymatch(\"foo\",\"bar\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 340 */
if(verbose) perror("Doing test 340.\n");
if(( _1=( fuzzymatch("foo bar","gazonk") ))==( _2=( fuzzymatch("gazonk","foo bar") )))
{
if(verbose)
perror("Test 340: fuzzymatch(\"foo bar\",\"gazonk\")==fuzzymatch(\"gazonk\",\"foo bar\") succeded\n");
}else{
perror("Test 340: fuzzymatch(\"foo bar\",\"gazonk\")==fuzzymatch(\"gazonk\",\"foo bar\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 341 */
if(verbose) perror("Doing test 341.\n");
if(( _1=( fuzzymatch("foo","foo") ))==( _2=( 100 )))
{
if(verbose)
perror("Test 341: fuzzymatch(\"foo\",\"foo\")==100 succeded\n");
}else{
perror("Test 341: fuzzymatch(\"foo\",\"foo\")==100 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 342 */
if(verbose) perror("Doing test 342.\n");
if(( _1=( fuzzymatch("FOO","foo") ))==( _2=( 0 )))
{
if(verbose)
perror("Test 342: fuzzymatch(\"FOO\",\"foo\")==0 succeded\n");
}else{
perror("Test 342: fuzzymatch(\"FOO\",\"foo\")==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 343 */
if(verbose) perror("Doing test 343.\n");
if(_1=( intp(gauge(1)) ))
{
if(verbose)
perror("Test 343: intp(gauge(1)) succeded.\n");
}else{
perror("Test 343: intp(gauge(1)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing gc(0)\n");
gc(0);
if(verbose)
perror("Doing gc(4711)\n");
gc(4711);
/* Test 344 */
if(verbose) perror("Doing test 344.\n");
if(_1=( pointerp(get_dir(EXISTINGDIRECTORY)) ))
{
if(verbose)
perror("Test 344: pointerp(get_dir(EXISTINGDIRECTORY)) succeded.\n");
}else{
perror("Test 344: pointerp(get_dir(EXISTINGDIRECTORY)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 345 */
if(verbose) perror("Doing test 345.\n");
if(( _1=( this_object()->main ))==( _2=( get_function(this_object(),"main") )))
{
if(verbose)
perror("Test 345: this_object()->main==get_function(this_object(),\"main\") succeded\n");
}else{
perror("Test 345: this_object()->main==get_function(this_object(),\"main\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 346 */
if(verbose) perror("Doing test 346.\n");
if(_1=( !this_object()->nonexistingfunction ))
{
if(verbose)
perror("Test 346: !this_object()->nonexistingfunction succeded.\n");
}else{
perror("Test 346: !this_object()->nonexistingfunction failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 347 */
if(verbose) perror("Doing test 347.\n");
if(_1=( !get_function(this_object(),"nonexistingfunction") ))
{
if(verbose)
perror("Test 347: !get_function(this_object(),\"nonexistingfunction\") succeded.\n");
}else{
perror("Test 347: !get_function(this_object(),\"nonexistingfunction\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 348 */
if(verbose) perror("Doing test 348.\n");
if(_1=( stringp(getcwd()) ))
{
if(verbose)
perror("Test 348: stringp(getcwd()) succeded.\n");
}else{
perror("Test 348: stringp(getcwd()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 349 */
if(verbose) perror("Doing test 349.\n");
if(_1=( stringp(getenv(EXISTINGENVIRONMENTVARIABLE)) ))
{
if(verbose)
perror("Test 349: stringp(getenv(EXISTINGENVIRONMENTVARIABLE)) succeded.\n");
}else{
perror("Test 349: stringp(getenv(EXISTINGENVIRONMENTVARIABLE)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 350 */
if(verbose) perror("Doing test 350.\n");
if(( _1=( 0 ))==( _2=( (getenv(NONEXISTINGENVIRONMENTVARIABLE)) )))
{
if(verbose)
perror("Test 350: 0==(getenv(NONEXISTINGENVIRONMENTVARIABLE)) succeded\n");
}else{
perror("Test 350: 0==(getenv(NONEXISTINGENVIRONMENTVARIABLE)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 351 */
if(verbose) perror("Doing test 351.\n");
if(_1=( stringp(getuid(this_object())) ))
{
if(verbose)
perror("Test 351: stringp(getuid(this_object())) succeded.\n");
}else{
perror("Test 351: stringp(getuid(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 352 */
if(verbose) perror("Doing test 352.\n");
if(_1=( stringp(geteuid(this_object())) ))
{
if(verbose)
perror("Test 352: stringp(geteuid(this_object())) succeded.\n");
}else{
perror("Test 352: stringp(geteuid(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 353 */
if(verbose) perror("Doing test 353.\n");
if(( _1=( geteuid(this_object()) ))==( _2=( getuid(this_object()) )))
{
if(verbose)
perror("Test 353: geteuid(this_object())==getuid(this_object()) succeded\n");
}else{
perror("Test 353: geteuid(this_object())==getuid(this_object()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 354 */
if(verbose) perror("Doing test 354.\n");
if(_1=( intp(hash("alskdf")) ))
{
if(verbose)
perror("Test 354: intp(hash(\"alskdf\")) succeded.\n");
}else{
perror("Test 354: intp(hash(\"alskdf\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 355 */
if(verbose) perror("Doing test 355.\n");
if(( _1=( hash(implode(({"a","b"}),"")) ))==( _2=( hash(lower_case("Ab")) )))
{
if(verbose)
perror("Test 355: hash(implode(({\"a\",\"b\"}),\"\"))==hash(lower_case(\"Ab\")) succeded\n");
}else{
perror("Test 355: hash(implode(({\"a\",\"b\"}),\"\"))==hash(lower_case(\"Ab\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 356 */
if(verbose) perror("Doing test 356.\n");
if(_1=( stringp(hash_name(this_object())) ))
{
if(verbose)
perror("Test 356: stringp(hash_name(this_object())) succeded.\n");
}else{
perror("Test 356: stringp(hash_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 357 */
if(verbose) perror("Doing test 357.\n");
if(is_equal(_1=( indices((< "a","b">)) ),_2=( indices((["a":0,"b":1])) )))
{
if(verbose)
perror("Test 357: is_equal(indices((< \"a\",\"b\">)) , indices(([\"a\":0,\"b\":1]))) succeded\n");
}else{
perror("Test 357: is_equal(indices((< \"a\",\"b\">)) , indices(([\"a\":0,\"b\":1]))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 358 */
if(verbose) perror("Doing test 358.\n");
if(_1=( pointerp(inherit_list()) ))
{
if(verbose)
perror("Test 358: pointerp(inherit_list()) succeded.\n");
}else{
perror("Test 358: pointerp(inherit_list()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 359 */
if(verbose) perror("Doing test 359.\n");
if(( _1=( master() ))==( _2=( initiating_object() )))
{
if(verbose)
perror("Test 359: master()==initiating_object() succeded\n");
}else{
perror("Test 359: master()==initiating_object() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
list test_list=(<>);
/* Test 360 */
if(verbose) perror("Doing test 360.\n");
if(_1=( test_list["a"]=1 ))
{
if(verbose)
perror("Test 360: test_list[\"a\"]=1 succeded.\n");
}else{
perror("Test 360: test_list[\"a\"]=1 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 361 */
if(verbose) perror("Doing test 361.\n");
if(_1=( test_list["a"] ))
{
if(verbose)
perror("Test 361: test_list[\"a\"] succeded.\n");
}else{
perror("Test 361: test_list[\"a\"] failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 362 */
if(verbose) perror("Doing test 362.\n");
if(( _1=( l_sizeof(test_list) ))==( _2=( 1 )))
{
if(verbose)
perror("Test 362: l_sizeof(test_list)==1 succeded\n");
}else{
perror("Test 362: l_sizeof(test_list)==1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 363 */
if(verbose) perror("Doing test 363.\n");
if(_1=( listp(l_delete(test_list,"a")) ))
{
if(verbose)
perror("Test 363: listp(l_delete(test_list,\"a\")) succeded.\n");
}else{
perror("Test 363: listp(l_delete(test_list,\"a\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 364 */
if(verbose) perror("Doing test 364.\n");
if(_1=( !test_list["a"] ))
{
if(verbose)
perror("Test 364: !test_list[\"a\"] succeded.\n");
}else{
perror("Test 364: !test_list[\"a\"] failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 365 */
if(verbose) perror("Doing test 365.\n");
if(( _1=( l_sizeof(test_list) ))==( _2=( 0 )))
{
if(verbose)
perror("Test 365: l_sizeof(test_list)==0 succeded\n");
}else{
perror("Test 365: l_sizeof(test_list)==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 366 */
if(verbose) perror("Doing test 366.\n");
if(( _1=( 1 ))==( _2=( listp((<>)) )))
{
if(verbose)
perror("Test 366: 1==listp((<>)) succeded\n");
}else{
perror("Test 366: 1==listp((<>)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 367 */
if(verbose) perror("Doing test 367.\n");
if(( _1=( 0 ))==( _2=( listp((mixed)"") )))
{
if(verbose)
perror("Test 367: 0==listp((mixed)\"\") succeded\n");
}else{
perror("Test 367: 0==listp((mixed)\"\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing enable_commands()\n");
enable_commands();
/* Test 368 */
if(verbose) perror("Doing test 368.\n");
if(_1=( living(this_object()) ))
{
if(verbose)
perror("Test 368: living(this_object()) succeded.\n");
}else{
perror("Test 368: living(this_object()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing disable_commands()\n");
disable_commands();
/* Test 369 */
if(verbose) perror("Doing test 369.\n");
if(_1=( !living(this_object()) ))
{
if(verbose)
perror("Test 369: !living(this_object()) succeded.\n");
}else{
perror("Test 369: !living(this_object()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 370 */
if(verbose) perror("Doing test 370.\n");
if(_1=( load(file_name(this_object())) ))
{
if(verbose)
perror("Test 370: load(file_name(this_object())) succeded.\n");
}else{
perror("Test 370: load(file_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 371 */
if(verbose) perror("Doing test 371.\n");
if(_1=( update(file_name(this_object())) ))
{
if(verbose)
perror("Test 371: update(file_name(this_object())) succeded.\n");
}else{
perror("Test 371: update(file_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 372 */
if(verbose) perror("Doing test 372.\n");
if(_1=( !update(file_name(this_object())) ))
{
if(verbose)
perror("Test 372: !update(file_name(this_object())) succeded.\n");
}else{
perror("Test 372: !update(file_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 373 */
if(verbose) perror("Doing test 373.\n");
if(_1=( load(file_name(this_object())) ))
{
if(verbose)
perror("Test 373: load(file_name(this_object())) succeded.\n");
}else{
perror("Test 373: load(file_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 374 */
if(verbose) perror("Doing test 374.\n");
if(_1=( floatp(log(5.0)) ))
{
if(verbose)
perror("Test 374: floatp(log(5.0)) succeded.\n");
}else{
perror("Test 374: floatp(log(5.0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 375 */
if(verbose) perror("Doing test 375.\n");
if(( _1=( "hello" ))==( _2=( lower_case("hellO") )))
{
if(verbose)
perror("Test 375: \"hello\"==lower_case(\"hellO\") succeded\n");
}else{
perror("Test 375: \"hello\"==lower_case(\"hellO\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 376 */
if(verbose) perror("Doing test 376.\n");
if(is_equal(_1=( m_cleanup(([5:3,6:0,7:8])) ),_2=( ([5:3,7:8]) )))
{
if(verbose)
perror("Test 376: is_equal(m_cleanup(([5:3,6:0,7:8])) , ([5:3,7:8])) succeded\n");
}else{
perror("Test 376: is_equal(m_cleanup(([5:3,6:0,7:8])) , ([5:3,7:8])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 377 */
if(verbose) perror("Doing test 377.\n");
if(is_equal(_1=( m_delete(([5:3,6:0,7:8]),6) ),_2=( ([5:3,7:8]) )))
{
if(verbose)
perror("Test 377: is_equal(m_delete(([5:3,6:0,7:8]),6) , ([5:3,7:8])) succeded\n");
}else{
perror("Test 377: is_equal(m_delete(([5:3,6:0,7:8]),6) , ([5:3,7:8])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 378 */
if(verbose) perror("Doing test 378.\n");
if(( _1=( m_get_default(([5:3,6:0,7:8])) ))==( _2=( 0 )))
{
if(verbose)
perror("Test 378: m_get_default(([5:3,6:0,7:8]))==0 succeded\n");
}else{
perror("Test 378: m_get_default(([5:3,6:0,7:8]))==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 379 */
if(verbose) perror("Doing test 379.\n");
if(( _1=( m_get_default(m_set_default(([5:3,6:0,7:8]),99)) ))==( _2=( 99 )))
{
if(verbose)
perror("Test 379: m_get_default(m_set_default(([5:3,6:0,7:8]),99))==99 succeded\n");
}else{
perror("Test 379: m_get_default(m_set_default(([5:3,6:0,7:8]),99))==99 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 380 */
if(verbose) perror("Doing test 380.\n");
if(is_equal(_1=( sort_array(m_indices(([5:3,6:0,7:8]))) ),_2=( ({5,6,7}) )))
{
if(verbose)
perror("Test 380: is_equal(sort_array(m_indices(([5:3,6:0,7:8]))) , ({5,6,7})) succeded\n");
}else{
perror("Test 380: is_equal(sort_array(m_indices(([5:3,6:0,7:8]))) , ({5,6,7})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 381 */
if(verbose) perror("Doing test 381.\n");
if(is_equal(_1=( m_list(([5:3,6:0,7:8])) ),_2=( (<5,6,7>) )))
{
if(verbose)
perror("Test 381: is_equal(m_list(([5:3,6:0,7:8])) , (<5,6,7>)) succeded\n");
}else{
perror("Test 381: is_equal(m_list(([5:3,6:0,7:8])) , (<5,6,7>)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 382 */
if(verbose) perror("Doing test 382.\n");
if(is_equal(_1=( m_cleanup(m_set_default(([5:3,6:0,7:8]),8)) ),_2=( ([5:3,6:0]) )))
{
if(verbose)
perror("Test 382: is_equal(m_cleanup(m_set_default(([5:3,6:0,7:8]),8)) , ([5:3,6:0])) succeded\n");
}else{
perror("Test 382: is_equal(m_cleanup(m_set_default(([5:3,6:0,7:8]),8)) , ([5:3,6:0])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 383 */
if(verbose) perror("Doing test 383.\n");
if(( _1=( m_sizeof(([5:3,6:0,7:8])) ))==( _2=( 3 )))
{
if(verbose)
perror("Test 383: m_sizeof(([5:3,6:0,7:8]))==3 succeded\n");
}else{
perror("Test 383: m_sizeof(([5:3,6:0,7:8]))==3 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 384 */
if(verbose) perror("Doing test 384.\n");
if(is_equal(_1=( sort_array(m_values(([5:3,6:0,7:8]))) ),_2=( ({0,3,8}) )))
{
if(verbose)
perror("Test 384: is_equal(sort_array(m_values(([5:3,6:0,7:8]))) , ({0,3,8})) succeded\n");
}else{
perror("Test 384: is_equal(sort_array(m_values(([5:3,6:0,7:8]))) , ({0,3,8})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 385 */
if(verbose) perror("Doing test 385.\n");
if(is_equal(_1=( ({"a","b",0,0,0}) ),_2=( map_array(({"a","b",0,0,0}),lambda(mixed a){return a;}) )))
{
if(verbose)
perror("Test 385: is_equal(({\"a\",\"b\",0,0,0}) , map_array(({\"a\",\"b\",0,0,0}),lambda(mixed a){return a;})) succeded\n");
}else{
perror("Test 385: is_equal(({\"a\",\"b\",0,0,0}) , map_array(({\"a\",\"b\",0,0,0}),lambda(mixed a){return a;})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
object oo_o=clone_object(make_object("mixed foo(mixed a ){ return ({\"a\",\"b\"}); }"));
function o_oo=oo_o->foo;
/* Test 386 */
if(verbose) perror("Doing test 386.\n");
if(is_equal(_1=( ({({"a","b"}),0,0}) ),_2=( map_array(({oo_o,0,""}),"foo") )))
{
if(verbose)
perror("Test 386: is_equal(({({\"a\",\"b\"}),0,0}) , map_array(({oo_o,0,\"\"}),\"foo\")) succeded\n");
}else{
perror("Test 386: is_equal(({({\"a\",\"b\"}),0,0}) , map_array(({oo_o,0,\"\"}),\"foo\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 387 */
if(verbose) perror("Doing test 387.\n");
if(is_equal(_1=( ({({"a","b"}),0,0}) ),_2=( map_array(({o_oo,0,""}),-1) )))
{
if(verbose)
perror("Test 387: is_equal(({({\"a\",\"b\"}),0,0}) , map_array(({o_oo,0,\"\"}),-1)) succeded\n");
}else{
perror("Test 387: is_equal(({({\"a\",\"b\"}),0,0}) , map_array(({o_oo,0,\"\"}),-1)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 388 */
if(verbose) perror("Doing test 388.\n");
if(is_equal(_1=( (["a":"b",0:0]) ),_2=( map_mapping((["a":"b",0:0]),lambda(mixed a){return a;}) )))
{
if(verbose)
perror("Test 388: is_equal(([\"a\":\"b\",0:0]) , map_mapping(([\"a\":\"b\",0:0]),lambda(mixed a){return a;})) succeded\n");
}else{
perror("Test 388: is_equal(([\"a\":\"b\",0:0]) , map_mapping(([\"a\":\"b\",0:0]),lambda(mixed a){return a;})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 389 */
if(verbose) perror("Doing test 389.\n");
if(is_equal(_1=( ([ "a": ({"a","b"}),0:0]) ),_2=( map_mapping((["a":foo_o,0:""]),"foo") )))
{
if(verbose)
perror("Test 389: is_equal(([ \"a\": ({\"a\",\"b\"}),0:0]) , map_mapping(([\"a\":foo_o,0:\"\"]),\"foo\")) succeded\n");
}else{
perror("Test 389: is_equal(([ \"a\": ({\"a\",\"b\"}),0:0]) , map_mapping(([\"a\":foo_o,0:\"\"]),\"foo\")) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 390 */
if(verbose) perror("Doing test 390.\n");
if(is_equal(_1=( ([ "a": ({"a","b"}),0:0]) ),_2=( map_mapping((["a":o_foo,0:""]),-1) )))
{
if(verbose)
perror("Test 390: is_equal(([ \"a\": ({\"a\",\"b\"}),0:0]) , map_mapping(([\"a\":o_foo,0:\"\"]),-1)) succeded\n");
}else{
perror("Test 390: is_equal(([ \"a\": ({\"a\",\"b\"}),0:0]) , map_mapping(([\"a\":o_foo,0:\"\"]),-1)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 391 */
if(verbose) perror("Doing test 391.\n");
if(( _1=( -1 ))==( _2=( member_array("Nope",({ "Yes", "True", "Certainly" })) )))
{
if(verbose)
perror("Test 391: -1==member_array(\"Nope\",({ \"Yes\", \"True\", \"Certainly\" })) succeded\n");
}else{
perror("Test 391: -1==member_array(\"Nope\",({ \"Yes\", \"True\", \"Certainly\" })) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 392 */
if(verbose) perror("Doing test 392.\n");
if(( _1=( 1 ))==( _2=( member_array("True",({ "Yes", "True", "Certainly" })) )))
{
if(verbose)
perror("Test 392: 1==member_array(\"True\",({ \"Yes\", \"True\", \"Certainly\" })) succeded\n");
}else{
perror("Test 392: 1==member_array(\"True\",({ \"Yes\", \"True\", \"Certainly\" })) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 393 */
if(verbose) perror("Doing test 393.\n");
if(( _1=( 0 ))==( _2=( rmdir("I_hope") )))
{
if(verbose)
perror("Test 393: 0==rmdir(\"I_hope\") succeded\n");
}else{
perror("Test 393: 0==rmdir(\"I_hope\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing mkdir(\"I_hope\")\n");
mkdir("I_hope");
/* Test 394 */
if(verbose) perror("Doing test 394.\n");
if(( _1=( -2 ))==( _2=( file_size("I_hope") )))
{
if(verbose)
perror("Test 394: -2==file_size(\"I_hope\") succeded\n");
}else{
perror("Test 394: -2==file_size(\"I_hope\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 395 */
if(verbose) perror("Doing test 395.\n");
if(( _1=( 1 ))==( _2=( rmdir("I_hope") )))
{
if(verbose)
perror("Test 395: 1==rmdir(\"I_hope\") succeded\n");
}else{
perror("Test 395: 1==rmdir(\"I_hope\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 396 */
if(verbose) perror("Doing test 396.\n");
if(( _1=( -1 ))==( _2=( file_size("I_hope") )))
{
if(verbose)
perror("Test 396: -1==file_size(\"I_hope\") succeded\n");
}else{
perror("Test 396: -1==file_size(\"I_hope\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 397 */
if(verbose) perror("Doing test 397.\n");
if(_1=( mappingp(mkmapping(({"a","b"}),allocate(100))) ))
{
if(verbose)
perror("Test 397: mappingp(mkmapping(({\"a\",\"b\"}),allocate(100))) succeded.\n");
}else{
perror("Test 397: mappingp(mkmapping(({\"a\",\"b\"}),allocate(100))) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 398 */
if(verbose) perror("Doing test 398.\n");
if(( _1=( 2 ))==( _2=( m_sizeof(mkmapping(({"a","b"}),allocate(100))) )))
{
if(verbose)
perror("Test 398: 2==m_sizeof(mkmapping(({\"a\",\"b\"}),allocate(100))) succeded\n");
}else{
perror("Test 398: 2==m_sizeof(mkmapping(({\"a\",\"b\"}),allocate(100))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing oo_o=clone_object(file_name(this_object()))\n");
oo_o=clone_object(file_name(this_object()));
if(verbose)
perror("Doing foo_o=clone_object(file_name(this_object()))\n");
foo_o=clone_object(file_name(this_object()));
/* Test 399 */
if(verbose) perror("Doing test 399.\n");
if(_1=( next_clone(oo_o)==foo_o || next_clone(foo_o)==oo_o ))
{
if(verbose)
perror("Test 399: next_clone(oo_o)==foo_o || next_clone(foo_o)==oo_o succeded.\n");
}else{
perror("Test 399: next_clone(oo_o)==foo_o || next_clone(foo_o)==oo_o failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 400 */
if(verbose) perror("Doing test 400.\n");
if(( _1=( 3 ))==( _2=( lambda() { int e; object o; for(o=next_clone(file_name(this_object()));o;o=next_clone(o)) e++; return e; }() )))
{
if(verbose)
perror("Test 400: 3==lambda() { int e; object o; for(o=next_clone(file_name(this_object()));o;o=next_clone(o)) e++; return e; }() succeded\n");
}else{
perror("Test 400: 3==lambda() { int e; object o; for(o=next_clone(file_name(this_object()));o;o=next_clone(o)) e++; return e; }() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing destruct(oo_o)\n");
destruct(oo_o);
/* Test 401 */
if(verbose) perror("Doing test 401.\n");
if(_1=( this_object()==next_clone(file_name(this_object())) || foo_o==next_clone(file_name(this_object())) ))
{
if(verbose)
perror("Test 401: this_object()==next_clone(file_name(this_object())) || foo_o==next_clone(file_name(this_object())) succeded.\n");
}else{
perror("Test 401: this_object()==next_clone(file_name(this_object())) || foo_o==next_clone(file_name(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing foo_o->move(master())\n");
foo_o->move(master());
/* Test 402 */
if(verbose) perror("Doing test 402.\n");
if(( _1=( next_inventory(foo_o) ))==( _2=( this_object() )))
{
if(verbose)
perror("Test 402: next_inventory(foo_o)==this_object() succeded\n");
}else{
perror("Test 402: next_inventory(foo_o)==this_object() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 403 */
if(verbose) perror("Doing test 403.\n");
if(( _1=( next_inventory(this_object()) ))==( _2=( 0 )))
{
if(verbose)
perror("Test 403: next_inventory(this_object())==0 succeded\n");
}else{
perror("Test 403: next_inventory(this_object())==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing destruct(foo_o)\n");
destruct(foo_o);
/* Test 404 */
if(verbose) perror("Doing test 404.\n");
if(_1=( intp(object_cpu(this_object())) ))
{
if(verbose)
perror("Test 404: intp(object_cpu(this_object())) succeded.\n");
}else{
perror("Test 404: intp(object_cpu(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 405 */
if(verbose) perror("Doing test 405.\n");
if(_1=( objectp(this_object()) ))
{
if(verbose)
perror("Test 405: objectp(this_object()) succeded.\n");
}else{
perror("Test 405: objectp(this_object()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing perror(\"\")\n");
perror("");
/* Test 406 */
if(verbose) perror("Doing test 406.\n");
if(_1=( pointerp(({})) ))
{
if(verbose)
perror("Test 406: pointerp(({})) succeded.\n");
}else{
perror("Test 406: pointerp(({})) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 407 */
if(verbose) perror("Doing test 407.\n");
if(_1=( !pointerp(0) ))
{
if(verbose)
perror("Test 407: !pointerp(0) succeded.\n");
}else{
perror("Test 407: !pointerp(0) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 408 */
if(verbose) perror("Doing test 408.\n");
if(_1=( stringp(popen("echo hello")) ))
{
if(verbose)
perror("Test 408: stringp(popen(\"echo hello\")) succeded.\n");
}else{
perror("Test 408: stringp(popen(\"echo hello\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 409 */
if(verbose) perror("Doing test 409.\n");
if(( _1=( pow(10.0,10.0) ))==( _2=( 10000000000.0 )))
{
if(verbose)
perror("Test 409: pow(10.0,10.0)==10000000000.0 succeded\n");
}else{
perror("Test 409: pow(10.0,10.0)==10000000000.0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 410 */
if(verbose) perror("Doing test 410.\n");
if(( _1=( master() ))==( _2=( previous_object() )))
{
if(verbose)
perror("Test 410: master()==previous_object() succeded\n");
}else{
perror("Test 410: master()==previous_object() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 411 */
if(verbose) perror("Doing test 411.\n");
if(_1=( pointerp(previous_objects()) ))
{
if(verbose)
perror("Test 411: pointerp(previous_objects()) succeded.\n");
}else{
perror("Test 411: pointerp(previous_objects()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 412 */
if(verbose) perror("Doing test 412.\n");
if(is_equal(_1=( previous_objects() ),_2=( ({master()}) )))
{
if(verbose)
perror("Test 412: is_equal(previous_objects() , ({master()})) succeded\n");
}else{
perror("Test 412: is_equal(previous_objects() , ({master()})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
#if efun(putenv)
if(verbose)
perror("Doing putenv(\"foo=bar\")\n");
putenv("foo=bar");
/* Test 413 */
if(verbose) perror("Doing test 413.\n");
if(( _1=( getenv("foo") ))==( _2=( "bar" )))
{
if(verbose)
perror("Test 413: getenv(\"foo\")==\"bar\" succeded\n");
}else{
perror("Test 413: getenv(\"foo\")==\"bar\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
#endif
/* Test 414 */
if(verbose) perror("Doing test 414.\n");
if(_1=( stringp(query_host_name()) ))
{
if(verbose)
perror("Test 414: stringp(query_host_name()) succeded.\n");
}else{
perror("Test 414: stringp(query_host_name()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 415 */
if(verbose) perror("Doing test 415.\n");
if(_1=( stringp(query_load_average()) ))
{
if(verbose)
perror("Test 415: stringp(query_load_average()) succeded.\n");
}else{
perror("Test 415: stringp(query_load_average()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 416 */
if(verbose) perror("Doing test 416.\n");
if(_1=( intp(query_num_arg()) ))
{
if(verbose)
perror("Test 416: intp(query_num_arg()) succeded.\n");
}else{
perror("Test 416: intp(query_num_arg()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 417 */
if(verbose) perror("Doing test 417.\n");
if(( _1=( query_verb() ))==( _2=( 0 )))
{
if(verbose)
perror("Test 417: query_verb()==0 succeded\n");
}else{
perror("Test 417: query_verb()==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 418 */
if(verbose) perror("Doing test 418.\n");
if(_1=( intp(random(1000)) ))
{
if(verbose)
perror("Test 418: intp(random(1000)) succeded.\n");
}else{
perror("Test 418: intp(random(1000)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 419 */
if(verbose) perror("Doing test 419.\n");
if(_1=( -1==search_array(allocate(1000),lambda() { return random(1000)>=1000; }) ))
{
if(verbose)
perror("Test 419: -1==search_array(allocate(1000),lambda() { return random(1000)>=1000; }) succeded.\n");
}else{
perror("Test 419: -1==search_array(allocate(1000),lambda() { return random(1000)>=1000; }) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
string * regtest= ({ "a","bar","suck","nope","japp" });
/* Test 420 */
if(verbose) perror("Doing test 420.\n");
if(is_equal(_1=( regexp(regtest,".") ),_2=( regtest )))
{
if(verbose)
perror("Test 420: is_equal(regexp(regtest,\".\") , regtest) succeded\n");
}else{
perror("Test 420: is_equal(regexp(regtest,\".\") , regtest) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 421 */
if(verbose) perror("Doing test 421.\n");
if(is_equal(_1=( regexp(regtest,"^a") ),_2=( ({"a"}) )))
{
if(verbose)
perror("Test 421: is_equal(regexp(regtest,\"^a\") , ({\"a\"})) succeded\n");
}else{
perror("Test 421: is_equal(regexp(regtest,\"^a\") , ({\"a\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 422 */
if(verbose) perror("Doing test 422.\n");
if(is_equal(_1=( regexp(regtest,"^.a") ),_2=( ({"bar","japp"}) )))
{
if(verbose)
perror("Test 422: is_equal(regexp(regtest,\"^.a\") , ({\"bar\",\"japp\"})) succeded\n");
}else{
perror("Test 422: is_equal(regexp(regtest,\"^.a\") , ({\"bar\",\"japp\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 423 */
if(verbose) perror("Doing test 423.\n");
if(is_equal(_1=( regexp(regtest,"a|s") ),_2=( ({"a","bar","suck","japp"}) )))
{
if(verbose)
perror("Test 423: is_equal(regexp(regtest,\"a|s\") , ({\"a\",\"bar\",\"suck\",\"japp\"})) succeded\n");
}else{
perror("Test 423: is_equal(regexp(regtest,\"a|s\") , ({\"a\",\"bar\",\"suck\",\"japp\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 424 */
if(verbose) perror("Doing test 424.\n");
if(is_equal(_1=( regexp(regtest,"no") ),_2=( ({"nope"}) )))
{
if(verbose)
perror("Test 424: is_equal(regexp(regtest,\"no\") , ({\"nope\"})) succeded\n");
}else{
perror("Test 424: is_equal(regexp(regtest,\"no\") , ({\"nope\"})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 425 */
if(verbose) perror("Doing test 425.\n");
if(_1=( !zero_type(remove_call_out(call_out_test)) ))
{
if(verbose)
perror("Test 425: !zero_type(remove_call_out(call_out_test)) succeded.\n");
}else{
perror("Test 425: !zero_type(remove_call_out(call_out_test)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 426 */
if(verbose) perror("Doing test 426.\n");
if(_1=( 1==zero_type(find_call_out(call_out_test)) ))
{
if(verbose)
perror("Test 426: 1==zero_type(find_call_out(call_out_test)) succeded.\n");
}else{
perror("Test 426: 1==zero_type(find_call_out(call_out_test)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing write_file(\"test_file\",\"\")\n");
write_file("test_file","");
if(verbose)
perror("Doing rename(\"test_file\",\"file_test\")\n");
rename("test_file","file_test");
/* Test 427 */
if(verbose) perror("Doing test 427.\n");
if(( _1=( -1 ))==( _2=( file_size("test_file") )))
{
if(verbose)
perror("Test 427: -1==file_size(\"test_file\") succeded\n");
}else{
perror("Test 427: -1==file_size(\"test_file\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 428 */
if(verbose) perror("Doing test 428.\n");
if(( _1=( 0 ))==( _2=( file_size("file_test") )))
{
if(verbose)
perror("Test 428: 0==file_size(\"file_test\") succeded\n");
}else{
perror("Test 428: 0==file_size(\"file_test\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing rm(\"file_test\")\n");
rm("file_test");
/* Test 429 */
if(verbose) perror("Doing test 429.\n");
if(( _1=( replace("foobargazonk","o","-") ))==( _2=( "f--bargaz-nk" )))
{
if(verbose)
perror("Test 429: replace(\"foobargazonk\",\"o\",\"-\")==\"f--bargaz-nk\" succeded\n");
}else{
perror("Test 429: replace(\"foobargazonk\",\"o\",\"-\")==\"f--bargaz-nk\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 430 */
if(verbose) perror("Doing test 430.\n");
if(( _1=( replace("foobargazonk",({"o","a"}),({"()","<>"})) ))==( _2=( "f()()b<>rg<>z()nk" )))
{
if(verbose)
perror("Test 430: replace(\"foobargazonk\",({\"o\",\"a\"}),({\"()\",\"<>\"}))==\"f()()b<>rg<>z()nk\" succeded\n");
}else{
perror("Test 430: replace(\"foobargazonk\",({\"o\",\"a\"}),({\"()\",\"<>\"}))==\"f()()b<>rg<>z()nk\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 431 */
if(verbose) perror("Doing test 431.\n");
if(( _1=( replace("foobarfoo",({"foo","foobar"}),({"foobar","foo"})) ))==( _2=( "foofoobar" )))
{
if(verbose)
perror("Test 431: replace(\"foobarfoo\",({\"foo\",\"foobar\"}),({\"foobar\",\"foo\"}))==\"foofoobar\" succeded\n");
}else{
perror("Test 431: replace(\"foobarfoo\",({\"foo\",\"foobar\"}),({\"foobar\",\"foo\"}))==\"foofoobar\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 432 */
if(verbose) perror("Doing test 432.\n");
if(( _1=( replace("foobarfoo",({"foobar","foo"}),({"foo","foobar"})) ))==( _2=( "foofoobar" )))
{
if(verbose)
perror("Test 432: replace(\"foobarfoo\",({\"foobar\",\"foo\"}),({\"foo\",\"foobar\"}))==\"foofoobar\" succeded\n");
}else{
perror("Test 432: replace(\"foobarfoo\",({\"foobar\",\"foo\"}),({\"foo\",\"foobar\"}))==\"foofoobar\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 433 */
if(verbose) perror("Doing test 433.\n");
if(is_equal(_1=( replace(({1,2,3,4,5,1,2,3,4}),3,-1) ),_2=( ({1,2,-1,4,5,1,2,-1,4}) )))
{
if(verbose)
perror("Test 433: is_equal(replace(({1,2,3,4,5,1,2,3,4}),3,-1) , ({1,2,-1,4,5,1,2,-1,4})) succeded\n");
}else{
perror("Test 433: is_equal(replace(({1,2,3,4,5,1,2,3,4}),3,-1) , ({1,2,-1,4,5,1,2,-1,4})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 434 */
if(verbose) perror("Doing test 434.\n");
if(_1=( gauge(reset_eval_cost())<0 ))
{
if(verbose)
perror("Test 434: gauge(reset_eval_cost())<0 succeded.\n");
}else{
perror("Test 434: gauge(reset_eval_cost())<0 failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing restore_object(\"\")\n");
restore_object("");
/* Test 435 */
if(verbose) perror("Doing test 435.\n");
if(_1=( pointerp(rusage()) ))
{
if(verbose)
perror("Test 435: pointerp(rusage()) succeded.\n");
}else{
perror("Test 435: pointerp(rusage()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 436 */
if(verbose) perror("Doing test 436.\n");
if(_1=( intp(rusage()[0]) ))
{
if(verbose)
perror("Test 436: intp(rusage()[0]) succeded.\n");
}else{
perror("Test 436: intp(rusage()[0]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 437 */
if(verbose) perror("Doing test 437.\n");
if(_1=( intp(rusage()[1]) ))
{
if(verbose)
perror("Test 437: intp(rusage()[1]) succeded.\n");
}else{
perror("Test 437: intp(rusage()[1]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 438 */
if(verbose) perror("Doing test 438.\n");
if(_1=( intp(rusage()[2]) ))
{
if(verbose)
perror("Test 438: intp(rusage()[2]) succeded.\n");
}else{
perror("Test 438: intp(rusage()[2]) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 439 */
if(verbose) perror("Doing test 439.\n");
if(( _1=( -1 ))==( _2=( search_array(rusage(),lambda(int arg) { return !intp(arg); }) )))
{
if(verbose)
perror("Test 439: -1==search_array(rusage(),lambda(int arg) { return !intp(arg); }) succeded\n");
}else{
perror("Test 439: -1==search_array(rusage(),lambda(int arg) { return !intp(arg); }) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 440 */
if(verbose) perror("Doing test 440.\n");
if(_1=( stringp(save_object()) ))
{
if(verbose)
perror("Test 440: stringp(save_object()) succeded.\n");
}else{
perror("Test 440: stringp(save_object()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 441 */
if(verbose) perror("Doing test 441.\n");
if(( _1=( 5 ))==( _2=( search_array(({0,1,2,3,4,5}),lambda(int x) { return x==5; }) )))
{
if(verbose)
perror("Test 441: 5==search_array(({0,1,2,3,4,5}),lambda(int x) { return x==5; }) succeded\n");
}else{
perror("Test 441: 5==search_array(({0,1,2,3,4,5}),lambda(int x) { return x==5; }) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 442 */
if(verbose) perror("Doing test 442.\n");
if(( _1=( 3 ))==( _2=( search_array(({0,1,2,3,4,5}),lambda(int x) { return x==3; }) )))
{
if(verbose)
perror("Test 442: 3==search_array(({0,1,2,3,4,5}),lambda(int x) { return x==3; }) succeded\n");
}else{
perror("Test 442: 3==search_array(({0,1,2,3,4,5}),lambda(int x) { return x==3; }) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 443 */
if(verbose) perror("Doing test 443.\n");
if(( _1=( -1 ))==( _2=( search_array(({0,1,2,3,4,5}),lambda(int x) { return x==8; }) )))
{
if(verbose)
perror("Test 443: -1==search_array(({0,1,2,3,4,5}),lambda(int x) { return x==8; }) succeded\n");
}else{
perror("Test 443: -1==search_array(({0,1,2,3,4,5}),lambda(int x) { return x==8; }) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 444 */
if(verbose) perror("Doing test 444.\n");
if(( _1=( 0 ))==( _2=( set_heart_beat(0) )))
{
if(verbose)
perror("Test 444: 0==set_heart_beat(0) succeded\n");
}else{
perror("Test 444: 0==set_heart_beat(0) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 445 */
if(verbose) perror("Doing test 445.\n");
if(( _1=( 1 ))==( _2=( set_heart_beat(1) )))
{
if(verbose)
perror("Test 445: 1==set_heart_beat(1) succeded\n");
}else{
perror("Test 445: 1==set_heart_beat(1) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 446 */
if(verbose) perror("Doing test 446.\n");
if(( _1=( 0 ))==( _2=( set_heart_beat(1) )))
{
if(verbose)
perror("Test 446: 0==set_heart_beat(1) succeded\n");
}else{
perror("Test 446: 0==set_heart_beat(1) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 447 */
if(verbose) perror("Doing test 447.\n");
if(( _1=( 1 ))==( _2=( set_heart_beat(0) )))
{
if(verbose)
perror("Test 447: 1==set_heart_beat(0) succeded\n");
}else{
perror("Test 447: 1==set_heart_beat(0) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 448 */
if(verbose) perror("Doing test 448.\n");
if(_1=( floatp(sin(1.2)) ))
{
if(verbose)
perror("Test 448: floatp(sin(1.2)) succeded.\n");
}else{
perror("Test 448: floatp(sin(1.2)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 449 */
if(verbose) perror("Doing test 449.\n");
if(( _1=( ((string)sin(atan(1.0)))[0..4] ))==( _2=( "0.707" )))
{
if(verbose)
perror("Test 449: ((string)sin(atan(1.0)))[0..4]==\"0.707\" succeded\n");
}else{
perror("Test 449: ((string)sin(atan(1.0)))[0..4]==\"0.707\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 450 */
if(verbose) perror("Doing test 450.\n");
if(( _1=( size(arr) ))==( _2=( sizeof(arr) )))
{
if(verbose)
perror("Test 450: size(arr)==sizeof(arr) succeded\n");
}else{
perror("Test 450: size(arr)==sizeof(arr) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 451 */
if(verbose) perror("Doing test 451.\n");
if(( _1=( 0 ))==( _2=( intp(([])) )))
{
if(verbose)
perror("Test 451: 0==intp(([])) succeded\n");
}else{
perror("Test 451: 0==intp(([])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 452 */
if(verbose) perror("Doing test 452.\n");
if(_1=( intp(size(this_object())) ))
{
if(verbose)
perror("Test 452: intp(size(this_object())) succeded.\n");
}else{
perror("Test 452: intp(size(this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing sleep(1)\n");
sleep(1);
/* Test 453 */
if(verbose) perror("Doing test 453.\n");
if(is_equal(_1=( solidify_mapping(([1:1,1:1,1:1,4:0,4:0,8:9])) ),_2=( ([1:({1,1,1}),4:({0,0}),8:({9})]) )))
{
if(verbose)
perror("Test 453: is_equal(solidify_mapping(([1:1,1:1,1:1,4:0,4:0,8:9])) , ([1:({1,1,1}),4:({0,0}),8:({9})])) succeded\n");
}else{
perror("Test 453: is_equal(solidify_mapping(([1:1,1:1,1:1,4:0,4:0,8:9])) , ([1:({1,1,1}),4:({0,0}),8:({9})])) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 454 */
if(verbose) perror("Doing test 454.\n");
if(is_equal(_1=( ({1,4,5,7,7,10,11}) ),_2=( sort_array(({7,1,10,5,7,11,4})) )))
{
if(verbose)
perror("Test 454: is_equal(({1,4,5,7,7,10,11}) , sort_array(({7,1,10,5,7,11,4}))) succeded\n");
}else{
perror("Test 454: is_equal(({1,4,5,7,7,10,11}) , sort_array(({7,1,10,5,7,11,4}))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 455 */
if(verbose) perror("Doing test 455.\n");
if(is_equal(_1=( ({"a","b","c","cd"}) ),_2=( sort_array(({"b","cd","a","c"})) )))
{
if(verbose)
perror("Test 455: is_equal(({\"a\",\"b\",\"c\",\"cd\"}) , sort_array(({\"b\",\"cd\",\"a\",\"c\"}))) succeded\n");
}else{
perror("Test 455: is_equal(({\"a\",\"b\",\"c\",\"cd\"}) , sort_array(({\"b\",\"cd\",\"a\",\"c\"}))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 456 */
if(verbose) perror("Doing test 456.\n");
if(is_equal(_1=( ({"cd","c","b","a"}) ),_2=( sort_array(({"b","cd","a","c"}),lambda(string a,string b) { if(a<b) return 1; }) )))
{
if(verbose)
perror("Test 456: is_equal(({\"cd\",\"c\",\"b\",\"a\"}) , sort_array(({\"b\",\"cd\",\"a\",\"c\"}),lambda(string a,string b) { if(a<b) return 1; })) succeded\n");
}else{
perror("Test 456: is_equal(({\"cd\",\"c\",\"b\",\"a\"}) , sort_array(({\"b\",\"cd\",\"a\",\"c\"}),lambda(string a,string b) { if(a<b) return 1; })) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 457 */
if(verbose) perror("Doing test 457.\n");
if(_1=( stringp(sprintf("")) ))
{
if(verbose)
perror("Test 457: stringp(sprintf(\"\")) succeded.\n");
}else{
perror("Test 457: stringp(sprintf(\"\")) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 458 */
if(verbose) perror("Doing test 458.\n");
if(( _1=( sprintf("%d",1) ))==( _2=( "1" )))
{
if(verbose)
perror("Test 458: sprintf(\"%d\",1)==\"1\" succeded\n");
}else{
perror("Test 458: sprintf(\"%d\",1)==\"1\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 459 */
if(verbose) perror("Doing test 459.\n");
if(( _1=( sprintf("%%") ))==( _2=( "%" )))
{
if(verbose)
perror("Test 459: sprintf(\"%%\")==\"%\" succeded\n");
}else{
perror("Test 459: sprintf(\"%%\")==\"%\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 460 */
if(verbose) perror("Doing test 460.\n");
if(( _1=( sprintf("%d",1) ))==( _2=( "1" )))
{
if(verbose)
perror("Test 460: sprintf(\"%d\",1)==\"1\" succeded\n");
}else{
perror("Test 460: sprintf(\"%d\",1)==\"1\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 461 */
if(verbose) perror("Doing test 461.\n");
if(( _1=( sprintf("%d",-1) ))==( _2=( "-1" )))
{
if(verbose)
perror("Test 461: sprintf(\"%d\",-1)==\"-1\" succeded\n");
}else{
perror("Test 461: sprintf(\"%d\",-1)==\"-1\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 462 */
if(verbose) perror("Doing test 462.\n");
if(( _1=( sprintf("%u",1<<31) ))==( _2=( "2147483648" )))
{
if(verbose)
perror("Test 462: sprintf(\"%u\",1<<31)==\"2147483648\" succeded\n");
}else{
perror("Test 462: sprintf(\"%u\",1<<31)==\"2147483648\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 463 */
if(verbose) perror("Doing test 463.\n");
if(( _1=( sprintf("%o",255) ))==( _2=( "377" )))
{
if(verbose)
perror("Test 463: sprintf(\"%o\",255)==\"377\" succeded\n");
}else{
perror("Test 463: sprintf(\"%o\",255)==\"377\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 464 */
if(verbose) perror("Doing test 464.\n");
if(( _1=( sprintf("%x",255) ))==( _2=( "ff" )))
{
if(verbose)
perror("Test 464: sprintf(\"%x\",255)==\"ff\" succeded\n");
}else{
perror("Test 464: sprintf(\"%x\",255)==\"ff\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 465 */
if(verbose) perror("Doing test 465.\n");
if(( _1=( sprintf("%X",255) ))==( _2=( "FF" )))
{
if(verbose)
perror("Test 465: sprintf(\"%X\",255)==\"FF\" succeded\n");
}else{
perror("Test 465: sprintf(\"%X\",255)==\"FF\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 466 */
if(verbose) perror("Doing test 466.\n");
if(( _1=( sprintf("%c",255) ))==( _2=( "\377" )))
{
if(verbose)
perror("Test 466: sprintf(\"%c\",255)==\"\\377\" succeded\n");
}else{
perror("Test 466: sprintf(\"%c\",255)==\"\\377\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 467 */
if(verbose) perror("Doing test 467.\n");
if(_1=( stringp(sprintf("%f",255.0)) ))
{
if(verbose)
perror("Test 467: stringp(sprintf(\"%f\",255.0)) succeded.\n");
}else{
perror("Test 467: stringp(sprintf(\"%f\",255.0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 468 */
if(verbose) perror("Doing test 468.\n");
if(_1=( stringp(sprintf("%g",255.0)) ))
{
if(verbose)
perror("Test 468: stringp(sprintf(\"%g\",255.0)) succeded.\n");
}else{
perror("Test 468: stringp(sprintf(\"%g\",255.0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 469 */
if(verbose) perror("Doing test 469.\n");
if(_1=( stringp(sprintf("%e",255.0)) ))
{
if(verbose)
perror("Test 469: stringp(sprintf(\"%e\",255.0)) succeded.\n");
}else{
perror("Test 469: stringp(sprintf(\"%e\",255.0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 470 */
if(verbose) perror("Doing test 470.\n");
if(_1=( stringp(sprintf("%e",255.0)) ))
{
if(verbose)
perror("Test 470: stringp(sprintf(\"%e\",255.0)) succeded.\n");
}else{
perror("Test 470: stringp(sprintf(\"%e\",255.0)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 471 */
if(verbose) perror("Doing test 471.\n");
if(( _1=( sprintf("%s","foobar") ))==( _2=( "foobar" )))
{
if(verbose)
perror("Test 471: sprintf(\"%s\",\"foobar\")==\"foobar\" succeded\n");
}else{
perror("Test 471: sprintf(\"%s\",\"foobar\")==\"foobar\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 472 */
if(verbose) perror("Doing test 472.\n");
if(( _1=( sprintf("%s","foo\nbar") ))==( _2=( "foo\nbar" )))
{
if(verbose)
perror("Test 472: sprintf(\"%s\",\"foo\\nbar\")==\"foo\\nbar\" succeded\n");
}else{
perror("Test 472: sprintf(\"%s\",\"foo\\nbar\")==\"foo\\nbar\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 473 */
if(verbose) perror("Doing test 473.\n");
if(_1=( stringp(sprintf("%O",this_object())) ))
{
if(verbose)
perror("Test 473: stringp(sprintf(\"%O\",this_object())) succeded.\n");
}else{
perror("Test 473: stringp(sprintf(\"%O\",this_object())) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 474 */
if(verbose) perror("Doing test 474.\n");
if(_1=( stringp(sprintf("%O",({}))) ))
{
if(verbose)
perror("Test 474: stringp(sprintf(\"%O\",({}))) succeded.\n");
}else{
perror("Test 474: stringp(sprintf(\"%O\",({}))) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 475 */
if(verbose) perror("Doing test 475.\n");
if(_1=( sprintf("%D",this_object()) ))
{
if(verbose)
perror("Test 475: sprintf(\"%D\",this_object()) succeded.\n");
}else{
perror("Test 475: sprintf(\"%D\",this_object()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 476 */
if(verbose) perror("Doing test 476.\n");
if(_1=( sprintf("%D",({})) ))
{
if(verbose)
perror("Test 476: sprintf(\"%D\",({})) succeded.\n");
}else{
perror("Test 476: sprintf(\"%D\",({})) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 477 */
if(verbose) perror("Doing test 477.\n");
if(( _1=( sprintf("%n") ))==( _2=( "" )))
{
if(verbose)
perror("Test 477: sprintf(\"%n\")==\"\" succeded\n");
}else{
perror("Test 477: sprintf(\"%n\")==\"\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 478 */
if(verbose) perror("Doing test 478.\n");
if(( _1=( sprintf("%t",1) ))==( _2=( "int" )))
{
if(verbose)
perror("Test 478: sprintf(\"%t\",1)==\"int\" succeded\n");
}else{
perror("Test 478: sprintf(\"%t\",1)==\"int\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 479 */
if(verbose) perror("Doing test 479.\n");
if(( _1=( sprintf("%t",this_object()) ))==( _2=( "object" )))
{
if(verbose)
perror("Test 479: sprintf(\"%t\",this_object())==\"object\" succeded\n");
}else{
perror("Test 479: sprintf(\"%t\",this_object())==\"object\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 480 */
if(verbose) perror("Doing test 480.\n");
if(( _1=( sprintf("%{%d\n%}",({1,2,3,4})) ))==( _2=( "1\n2\n3\n4\n" )))
{
if(verbose)
perror("Test 480: sprintf(\"%{%d\\n%}\",({1,2,3,4}))==\"1\\n2\\n3\\n4\\n\" succeded\n");
}else{
perror("Test 480: sprintf(\"%{%d\\n%}\",({1,2,3,4}))==\"1\\n2\\n3\\n4\\n\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 481 */
if(verbose) perror("Doing test 481.\n");
if(( _1=( sprintf("%2d",1) ))==( _2=( " 1" )))
{
if(verbose)
perror("Test 481: sprintf(\"%2d\",1)==\" 1\" succeded\n");
}else{
perror("Test 481: sprintf(\"%2d\",1)==\" 1\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 482 */
if(verbose) perror("Doing test 482.\n");
if(( _1=( sprintf("%2d",1) ))==( _2=( " 1" )))
{
if(verbose)
perror("Test 482: sprintf(\"%2d\",1)==\" 1\" succeded\n");
}else{
perror("Test 482: sprintf(\"%2d\",1)==\" 1\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 483 */
if(verbose) perror("Doing test 483.\n");
if(( _1=( sprintf("%2d",2222) ))==( _2=( "2222" )))
{
if(verbose)
perror("Test 483: sprintf(\"%2d\",2222)==\"2222\" succeded\n");
}else{
perror("Test 483: sprintf(\"%2d\",2222)==\"2222\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 484 */
if(verbose) perror("Doing test 484.\n");
if(( _1=( sprintf("%!2d",2222) ))==( _2=( "22" )))
{
if(verbose)
perror("Test 484: sprintf(\"%!2d\",2222)==\"22\" succeded\n");
}else{
perror("Test 484: sprintf(\"%!2d\",2222)==\"22\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 485 */
if(verbose) perror("Doing test 485.\n");
if(( _1=( sprintf("%!!2d",2222) ))==( _2=( "2222" )))
{
if(verbose)
perror("Test 485: sprintf(\"%!!2d\",2222)==\"2222\" succeded\n");
}else{
perror("Test 485: sprintf(\"%!!2d\",2222)==\"2222\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 486 */
if(verbose) perror("Doing test 486.\n");
if(( _1=( sprintf("% d",2) ))==( _2=( " 2" )))
{
if(verbose)
perror("Test 486: sprintf(\"% d\",2)==\" 2\" succeded\n");
}else{
perror("Test 486: sprintf(\"% d\",2)==\" 2\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 487 */
if(verbose) perror("Doing test 487.\n");
if(( _1=( sprintf("% d",-2) ))==( _2=( "-2" )))
{
if(verbose)
perror("Test 487: sprintf(\"% d\",-2)==\"-2\" succeded\n");
}else{
perror("Test 487: sprintf(\"% d\",-2)==\"-2\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 488 */
if(verbose) perror("Doing test 488.\n");
if(( _1=( sprintf("%+d",2) ))==( _2=( "+2" )))
{
if(verbose)
perror("Test 488: sprintf(\"%+d\",2)==\"+2\" succeded\n");
}else{
perror("Test 488: sprintf(\"%+d\",2)==\"+2\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 489 */
if(verbose) perror("Doing test 489.\n");
if(( _1=( sprintf("%+d",-2) ))==( _2=( "-2" )))
{
if(verbose)
perror("Test 489: sprintf(\"%+d\",-2)==\"-2\" succeded\n");
}else{
perror("Test 489: sprintf(\"%+d\",-2)==\"-2\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 490 */
if(verbose) perror("Doing test 490.\n");
if(( _1=( sprintf("%-2d",2) ))==( _2=( "2 " )))
{
if(verbose)
perror("Test 490: sprintf(\"%-2d\",2)==\"2 \" succeded\n");
}else{
perror("Test 490: sprintf(\"%-2d\",2)==\"2 \" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 491 */
if(verbose) perror("Doing test 491.\n");
if(( _1=( sprintf("%|3d",2) ))==( _2=( " 2 " )))
{
if(verbose)
perror("Test 491: sprintf(\"%|3d\",2)==\" 2 \" succeded\n");
}else{
perror("Test 491: sprintf(\"%|3d\",2)==\" 2 \" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 492 */
if(verbose) perror("Doing test 492.\n");
if(( _1=( sprintf("%-=3s","f o bar gaz") ))==( _2=( "f o\nbar\ngaz" )))
{
if(verbose)
perror("Test 492: sprintf(\"%-=3s\",\"f o bar gaz\")==\"f o\\nbar\\ngaz\" succeded\n");
}else{
perror("Test 492: sprintf(\"%-=3s\",\"f o bar gaz\")==\"f o\\nbar\\ngaz\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 493 */
if(verbose) perror("Doing test 493.\n");
if(( _1=( sprintf("%*d",3,3) ))==( _2=( " 3" )))
{
if(verbose)
perror("Test 493: sprintf(\"%*d\",3,3)==\" 3\" succeded\n");
}else{
perror("Test 493: sprintf(\"%*d\",3,3)==\" 3\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 494 */
if(verbose) perror("Doing test 494.\n");
if(( _1=( sprintf("%'FOO'10s","BAR") ))==( _2=( "FOOFOOFBAR" )))
{
if(verbose)
perror("Test 494: sprintf(\"%'FOO'10s\",\"BAR\")==\"FOOFOOFBAR\" succeded\n");
}else{
perror("Test 494: sprintf(\"%'FOO'10s\",\"BAR\")==\"FOOFOOFBAR\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 495 */
if(verbose) perror("Doing test 495.\n");
if(( _1=( sprintf("%d %<d %<d",2) ))==( _2=( "2 2 2" )))
{
if(verbose)
perror("Test 495: sprintf(\"%d %<d %<d\",2)==\"2 2 2\" succeded\n");
}else{
perror("Test 495: sprintf(\"%d %<d %<d\",2)==\"2 2 2\" failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 496 */
if(verbose) perror("Doing test 496.\n");
if(( _1=( 4 ))==( _2=( sqrt(16) )))
{
if(verbose)
perror("Test 496: 4==sqrt(16) succeded\n");
}else{
perror("Test 496: 4==sqrt(16) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 497 */
if(verbose) perror("Doing test 497.\n");
if(( _1=( 4 ))==( _2=( sqrt(17) )))
{
if(verbose)
perror("Test 497: 4==sqrt(17) succeded\n");
}else{
perror("Test 497: 4==sqrt(17) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 498 */
if(verbose) perror("Doing test 498.\n");
if(( _1=( 4 ))==( _2=( sqrt(24) )))
{
if(verbose)
perror("Test 498: 4==sqrt(24) succeded\n");
}else{
perror("Test 498: 4==sqrt(24) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 499 */
if(verbose) perror("Doing test 499.\n");
if(( _1=( 4.0 ))==( _2=( sqrt(16.0) )))
{
if(verbose)
perror("Test 499: 4.0==sqrt(16.0) succeded\n");
}else{
perror("Test 499: 4.0==sqrt(16.0) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 500 */
if(verbose) perror("Doing test 500.\n");
if(_1=( stringp("") ))
{
if(verbose)
perror("Test 500: stringp(\"\") succeded.\n");
}else{
perror("Test 500: stringp(\"\") failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 501 */
if(verbose) perror("Doing test 501.\n");
if(( _1=( 5 ))==( _2=( strlen("12345") )))
{
if(verbose)
perror("Test 501: 5==strlen(\"12345\") succeded\n");
}else{
perror("Test 501: 5==strlen(\"12345\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 502 */
if(verbose) perror("Doing test 502.\n");
if(( _1=( 0 ))==( _2=( strlen("") )))
{
if(verbose)
perror("Test 502: 0==strlen(\"\") succeded\n");
}else{
perror("Test 502: 0==strlen(\"\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 503 */
if(verbose) perror("Doing test 503.\n");
if(( _1=( strstr("gurka zombie banan","gurka") ))==( _2=( 0 )))
{
if(verbose)
perror("Test 503: strstr(\"gurka zombie banan\",\"gurka\")==0 succeded\n");
}else{
perror("Test 503: strstr(\"gurka zombie banan\",\"gurka\")==0 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 504 */
if(verbose) perror("Doing test 504.\n");
if(( _1=( strstr("gurka zombie banan","zomb") ))==( _2=( 6 )))
{
if(verbose)
perror("Test 504: strstr(\"gurka zombie banan\",\"zomb\")==6 succeded\n");
}else{
perror("Test 504: strstr(\"gurka zombie banan\",\"zomb\")==6 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 505 */
if(verbose) perror("Doing test 505.\n");
if(( _1=( strstr("gurka zombie banan","ba") ))==( _2=( 13 )))
{
if(verbose)
perror("Test 505: strstr(\"gurka zombie banan\",\"ba\")==13 succeded\n");
}else{
perror("Test 505: strstr(\"gurka zombie banan\",\"ba\")==13 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 506 */
if(verbose) perror("Doing test 506.\n");
if(( _1=( strstr("gurka zombie banan","foobar") ))==( _2=( -1 )))
{
if(verbose)
perror("Test 506: strstr(\"gurka zombie banan\",\"foobar\")==-1 succeded\n");
}else{
perror("Test 506: strstr(\"gurka zombie banan\",\"foobar\")==-1 failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 507 */
if(verbose) perror("Doing test 507.\n");
if(is_equal(_1=( sum_arrays(lambda(int a,int b,int c) { return a+b+c; },({1,2,3,4}),({2,3,4,5}),({3,4,5,6})) ),_2=( ({6,9,12,15}) )))
{
if(verbose)
perror("Test 507: is_equal(sum_arrays(lambda(int a,int b,int c) { return a+b+c; },({1,2,3,4}),({2,3,4,5}),({3,4,5,6})) , ({6,9,12,15})) succeded\n");
}else{
perror("Test 507: is_equal(sum_arrays(lambda(int a,int b,int c) { return a+b+c; },({1,2,3,4}),({2,3,4,5}),({3,4,5,6})) , ({6,9,12,15})) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 508 */
if(verbose) perror("Doing test 508.\n");
if(_1=( floatp(tan(0.5)) ))
{
if(verbose)
perror("Test 508: floatp(tan(0.5)) succeded.\n");
}else{
perror("Test 508: floatp(tan(0.5)) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 509 */
if(verbose) perror("Doing test 509.\n");
if(( _1=( 0.5 ))==( _2=( tan(atan(0.5)) )))
{
if(verbose)
perror("Test 509: 0.5==tan(atan(0.5)) succeded\n");
}else{
perror("Test 509: 0.5==tan(atan(0.5)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 510 */
if(verbose) perror("Doing test 510.\n");
if(( _1=( 0.5 ))==( _2=( atan(tan(0.5)) )))
{
if(verbose)
perror("Test 510: 0.5==atan(tan(0.5)) succeded\n");
}else{
perror("Test 510: 0.5==atan(tan(0.5)) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 511 */
if(verbose) perror("Doing test 511.\n");
if(( _1=( "main" ))==( _2=( function_name(this_function()) )))
{
if(verbose)
perror("Test 511: \"main\"==function_name(this_function()) succeded\n");
}else{
perror("Test 511: \"main\"==function_name(this_function()) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 512 */
if(verbose) perror("Doing test 512.\n");
if(_1=( objectp(this_object()) ))
{
if(verbose)
perror("Test 512: objectp(this_object()) succeded.\n");
}else{
perror("Test 512: objectp(this_object()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 513 */
if(verbose) perror("Doing test 513.\n");
if(_1=( !this_player() ))
{
if(verbose)
perror("Test 513: !this_player() succeded.\n");
}else{
perror("Test 513: !this_player() failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing enable_commands()\n");
enable_commands();
/* Test 514 */
if(verbose) perror("Doing test 514.\n");
if(( _1=( this_object() ))==( _2=( this_player() )))
{
if(verbose)
perror("Test 514: this_object()==this_player() succeded\n");
}else{
perror("Test 514: this_object()==this_player() failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing disable_commands()\n");
disable_commands();
/* Test 515 */
if(verbose) perror("Doing test 515.\n");
if(_1=( !this_player() ))
{
if(verbose)
perror("Test 515: !this_player() succeded.\n");
}else{
perror("Test 515: !this_player() failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 516 */
if(verbose) perror("Doing test 516.\n");
if(_1=( intp(time()) ))
{
if(verbose)
perror("Test 516: intp(time()) succeded.\n");
}else{
perror("Test 516: intp(time()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 517 */
if(verbose) perror("Doing test 517.\n");
if(_1=( pointerp(top_cpu()) ))
{
if(verbose)
perror("Test 517: pointerp(top_cpu()) succeded.\n");
}else{
perror("Test 517: pointerp(top_cpu()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
/* Test 518 */
if(verbose) perror("Doing test 518.\n");
if(( _1=( -1 ))==( _2=( search_array(top_cpu(),lambda(mixed x) { return !objectp(x); }) )))
{
if(verbose)
perror("Test 518: -1==search_array(top_cpu(),lambda(mixed x) { return !objectp(x); }) succeded\n");
}else{
perror("Test 518: -1==search_array(top_cpu(),lambda(mixed x) { return !objectp(x); }) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 519 */
if(verbose) perror("Doing test 519.\n");
if(( _1=( "HEJ" ))==( _2=( upper_case("hEj") )))
{
if(verbose)
perror("Test 519: \"HEJ\"==upper_case(\"hEj\") succeded\n");
}else{
perror("Test 519: \"HEJ\"==upper_case(\"hEj\") failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 520 */
if(verbose) perror("Doing test 520.\n");
if(_1=( stringp(version()) ))
{
if(verbose)
perror("Test 520: stringp(version()) succeded.\n");
}else{
perror("Test 520: stringp(version()) failed.\n"+
" => "+code_value(_1,1)+".\n");
errors++;
}
if(verbose)
perror("Doing write(\"\")\n");
write("");
/* Test 521 */
if(verbose) perror("Doing test 521.\n");
if(( _1=( 0 ))==( _2=( zero_type(0) )))
{
if(verbose)
perror("Test 521: 0==zero_type(0) succeded\n");
}else{
perror("Test 521: 0==zero_type(0) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 522 */
if(verbose) perror("Doing test 522.\n");
if(( _1=( 1 ))==( _2=( zero_type(([])[10]) )))
{
if(verbose)
perror("Test 522: 1==zero_type(([])[10]) succeded\n");
}else{
perror("Test 522: 1==zero_type(([])[10]) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 523 */
if(verbose) perror("Doing test 523.\n");
if(( _1=( 0 ))==( _2=( zero_type(([0:0])[0]) )))
{
if(verbose)
perror("Test 523: 0==zero_type(([0:0])[0]) succeded\n");
}else{
perror("Test 523: 0==zero_type(([0:0])[0]) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
object test_ob;
function test_fun;
/* Test 524 */
if(verbose) perror("Doing test 524.\n");
if(( _1=( 1 ))==( _2=( objectp(test_ob=clone_object(make_object("void foo() {}"))) )))
{
if(verbose)
perror("Test 524: 1==objectp(test_ob=clone_object(make_object(\"void foo() {}\"))) succeded\n");
}else{
perror("Test 524: 1==objectp(test_ob=clone_object(make_object(\"void foo() {}\"))) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 525 */
if(verbose) perror("Doing test 525.\n");
if(( _1=( 1 ))==( _2=( functionp(test_fun=test_ob->foo) )))
{
if(verbose)
perror("Test 525: 1==functionp(test_fun=test_ob->foo) succeded\n");
}else{
perror("Test 525: 1==functionp(test_fun=test_ob->foo) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
perror("Doing destruct(test_ob)\n");
destruct(test_ob);
/* Test 526 */
if(verbose) perror("Doing test 526.\n");
if(( _1=( 1 ))==( _2=( intp(test_ob) )))
{
if(verbose)
perror("Test 526: 1==intp(test_ob) succeded\n");
}else{
perror("Test 526: 1==intp(test_ob) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 527 */
if(verbose) perror("Doing test 527.\n");
if(( _1=( 1 ))==( _2=( intp(test_fun) )))
{
if(verbose)
perror("Test 527: 1==intp(test_fun) succeded\n");
}else{
perror("Test 527: 1==intp(test_fun) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 528 */
if(verbose) perror("Doing test 528.\n");
if(( _1=( 2 ))==( _2=( zero_type(test_ob) )))
{
if(verbose)
perror("Test 528: 2==zero_type(test_ob) succeded\n");
}else{
perror("Test 528: 2==zero_type(test_ob) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
/* Test 529 */
if(verbose) perror("Doing test 529.\n");
if(( _1=( 3 ))==( _2=( zero_type(test_fun) )))
{
if(verbose)
perror("Test 529: 3==zero_type(test_fun) succeded\n");
}else{
perror("Test 529: 3==zero_type(test_fun) failed\n"+
"expression 1 => "+code_value(_1,1)+".\n"+
"expression 2 => "+code_value(_2,1)+".\n");
errors++;
}
if(verbose)
{
if(errors)
{
write(errors+" test(s) failed.\n");
}else{
write("Test completed without errors.\n");
}
}
}
if(errors) exit(errors); else shutdown();
}