pike.git / lib / modules / testsuite.in

version» Context lines:

pike.git/lib/modules/testsuite.in:1: - dnl $Id: testsuite.in,v 1.32 2004/07/14 09:52:57 grubba Exp $ + dnl $Id: testsuite.in,v 1.33 2004/07/14 11:02:10 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:380:      test_eq(Colors.color_name(0),"-")   test_eq(Colors.color_name( ({0,0}) ), "-")   test_eq(Colors.color_name( ({255,0,0}) ), "red")   test_eq(Colors.color_name( ({255,61,61}) ), "#ff3d3d")   test_eq(Colors.color_name( ({105,105,105}) ), "dimgrey")         dnl - Getopt   dnl setup - 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")) + 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"))      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)   
pike.git/lib/modules/testsuite.in:636:    opt(x, ({ "y", Getopt.HAS_ARG, "-b" }), 0, 1 );    return x;   ]],[[ ({ "x", "a", "-b" }) ]])   test_any_equal([[    array x = ({ "x", "a", "-b" });    opt(x, ({ "y", Getopt.HAS_ARG, "-b" }), 1, 1);    return x;   ]],[[ ({ "x", "a", "-b" }) ]])      dnl cleanup - test_do( master()->environment=getopt_env; ) - test_do( add_constant("getopt_env"); ) + test_do( putenv("POSIX_ME_HARDER", original_POSIX_ME_HARDER); ) + test_do( add_constant("original_POSIX_ME_HARDER"); )   test_do( add_constant("opt"); )      dnl - Int      test_eq( Int.parity(0), 0 )   test_eq( Int.parity(1), 1 )   test_eq( Int.parity(2), 1 )   test_eq( Int.parity(3), 0 )   test_eq( Int.parity(4), 1 )   test_eq( Int.parity(6), 0 )