pike.git / lib / modules / testsuite.in

version» Context lines:

pike.git/lib/modules/testsuite.in:1: - dnl $Id: testsuite.in,v 1.33 2004/07/14 11:02:10 grubba Exp $ + dnl $Id: testsuite.in,v 1.34 2004/07/14 11:09:05 grubba Exp $      START_MARKER      dnl - Array      test_equal(Array.diff(({ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }),    ({ 6, 7, 8, 9, 3, 4, 5, 1, 2, 0 })),    ({ ({ ({ 0, 1, 2, 3, 4, 5 }),    ({ 6, 7, 8, 9 }), ({}) }),    ({ ({}), ({ 6, 7, 8, 9 }),
pike.git/lib/modules/testsuite.in:387:      dnl - Getopt   dnl setup   test_do(add_constant("original_POSIX_ME_HARDER", getenv("POSIX_ME_HARDER"));)   test_do(putenv("POSIX_ME_HARDER", 0);)   // The following code is broken if the testsuite isn't run with -F,   // and messing around with internal structures in the master is not   // a good idea.   // /grubba 2004-07-14   // - // test_do( add_constant("getopt_env", master()->environment); ) - // test_do( master()->environment=([ "foo": ({ "foo", "bar" }) ]); ) - // test_equal(getenv("foo"), "bar") - // test_equal(master()->getenv("foo"), "bar") - // test_eq(function_object(getenv), master()) - // test_false(getenv("POSIX_ME_HARDER")) - // test_false(master()->getenv("POSIX_ME_HARDER")) + dnl test_do( add_constant("getopt_env", master()->environment); ) + dnl test_do( master()->environment=([ "foo": ({ "foo", "bar" }) ]); ) + dnl test_equal(getenv("foo"), "bar") + dnl test_equal(master()->getenv("foo"), "bar") + dnl test_eq(function_object(getenv), master()) + dnl test_false(getenv("POSIX_ME_HARDER")) + dnl test_false(master()->getenv("POSIX_ME_HARDER"))      test_eq( Getopt.find_option( ({}), "a" ), 0 )   test_eq( Getopt.find_option( "-a,-b"/",", "a" ), 0 )   test_eq( Getopt.find_option( "-a,--b"/",", "a" ), 0 )   test_eq( Getopt.find_option( "-a,-b"/",", "b" ), 1 )   test_eq( Getopt.find_option( "-a,-ab"/",", "b" ), 1 )   test_eq( Getopt.find_option( ",-a,-b"/",", "bc"/1 ), 1)   test_eq( Getopt.find_option( ",-,-a"/",", "a" ), 1)   test_eq( Getopt.find_option( ",--,-a"/",", "a" ), 0)