pike.git / lib / modules / testsuite.in

version» Context lines:

pike.git/lib/modules/testsuite.in:1: - dnl $Id: testsuite.in,v 1.8 2002/11/16 14:53:03 grubba Exp $ + dnl $Id: testsuite.in,v 1.9 2002/11/17 05:06:54 nilsson Exp $      dnl - Array      dnl Array.diff_longest_sequence   dnl Array.diff_compare_table   dnl Array.longest_ordered_sequence   dnl Array.interleave_array   dnl Array.sort      test_equal([[ Array.diff(enumerate(4),enumerate(4,1,2)) ]],
pike.git/lib/modules/testsuite.in:135:   test_equal(Array.common_prefix(({ "labyrinth"/1, "diatom"/1 })), ({}))   test_equal(Array.common_prefix(({ "abc"/1, "abc"/1, "abc"/1 })), "abc"/1)   test_equal(Array.common_prefix(({})), ({}))         dnl - Getopt   dnl setup   test_do( add_constant("getopt_env", master()->environment); )   test_do( master()->environment=([ "foo": ({ "foo", "bar" }) ]); )    + 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)      test_eq( Getopt.find_option( ",--a,-b"/",", "a"), 0)   test_eq( Getopt.find_option( ",--a,-b"/",", "b"), 1)   test_eq( Getopt.find_option( ",--a=b"/",", "x", "a"), "b")   test_eq( Getopt.find_option( ",--a=b"/",", "x", "a", 0, "y"), "b")   test_eq( Getopt.find_option( ",--a,-b"/",", "b", "a", 0, "y"), "-b") - test_eval_error( Getopt.find_option( ",--a"/",", "x", "a", 0, "y") ) + test_eq( Getopt.find_option( ",--a,-b"/",", "b", "a", 0, UNDEFINED), 1) + test_eval_error( Getopt.find_option( ",--a"/",", "x", "a", 0, "y", 1) )      test_eq( Getopt.find_option( ",-ab"/",", "a"), 1)   test_eq( Getopt.find_option( ",-ab"/",", "b"), 1)   test_eq( Getopt.find_option( ",-ab"/",", "a", 0, 0, "y"), "b")   test_eq( Getopt.find_option( ",-a,-b"/",", "ab"/1, 0, 0, "y"), "-b") - test_eval_error( Getopt.find_option( ",-a"/",", "a", 0, 0, "y") ) + test_eval_error( Getopt.find_option( ",-a"/",", "a", 0, 0, "y", 1) )      test_any_equal([[    array x = ({ "", "--a" });    Getopt.find_option( x, "x", "a" );    return x;   ]],[[ ({ "", 0 }) ]])   test_any_equal([[    array x = ({ "", "--a" });    Getopt.find_option( x, "x", "b" );    return x;
pike.git/lib/modules/testsuite.in:203:    Getopt.find_option( x, "b", 0, 0, "y" );    return x;   ]],[[ ({ "", "-a", 0 }) ]])      test_eq( Getopt.find_option(({}),({"a","b"}),({"c","d"}), 0, "e" ), "e")   test_eq( Getopt.find_option(({}),({"a","b"}),({"c","d"}), "foo", "e" ), "bar")   test_eq( Getopt.find_option(({}),({"a","b"}),({"c","d"}), "foo" ), "bar")   test_eq( Getopt.find_option(({}),({"a","b"}),({"c","d"}), ({"x","foo"}) ), "bar")   test_eq( Getopt.find_option(({}),({"a","b"}),({"c","d"}), "x", "e" ), "e")    + test_equal( Getopt.get_args( ({}) ), ({}) )   test_equal( Getopt.get_args(({ "x",0,0,1,"y",0,"z" })), "xyz"/1 )   test_eval_error( Getopt.get_args(({ "x", "-a" }), 0, 1) )   test_equal( Getopt.get_args(({ "-a", 0, "a"})), ({ "-a", "a" }) )   test_eval_error( Getopt.get_args(({ "x", "--a" }), 0, 1) )   test_equal( Getopt.get_args(({ "x", "--", "--a" })), ({ "x", "--a" }) )   test_equal( Getopt.get_args(({ "x", "-" })), ({ "x", "-" }) )   test_eval_error( Getop.get_args(({ "x", "a", "-b" }), 0, 1) )      test_equal( Getopt.get_args(({ "x", "a", "-b" }), 1, 1), ({ "x", "a", "-b" }))   test_equal( Getopt.get_args(({ "x", "ab", "-b" }), 1, 1), ({ "x", "ab", "-b" }))   test_equal( Getopt.get_args(({ "x", 0, "-b" }), 1, 1), ({ "x", "-b" }))   test_eval_error( Getopt.get_args(({ "x", "-a" }), 1, 1))      test_do( add_constant("opt", lambda(array x, array y, mixed ... z) {    return Getopt.find_all_options(x, ({ y }), @z); }); ) -  + test_equal( Getopt.find_all_options( ({}), ({}) ), ({}) )   test_equal( opt( "-a,-b"/",", ({ "a", Getopt.NO_ARG, "-a" }) ), ({}) )   test_equal( opt( "-a,--b"/",", ({ "a", Getopt.NO_ARG, "-b" }) ), ({}) )   test_equal( opt( "-a,-b"/",", ({ "b", Getopt.NO_ARG, "-b" }) ),    ({ ({ "b", 1 }) }) )   test_equal( opt( "-a,-ab"/",", ({ "b", Getopt.NO_ARG, "-b" }) ),    ({ ({ "b", 1 }) }) )   test_equal( opt( ",-,-a"/",", ({ "a", Getopt.NO_ARG, "-a" }) ),    ({ ({ "a", 1 }) }) ) )   test_equal( opt( ",--,-a"/",", ({ "a", Getopt.NO_ARG, "-a" }) ), ({}) )   test_equal( opt( ",-b,-A"/",", ({ "a", Getopt.NO_ARG, "-a-A"/2 }) ),
pike.git/lib/modules/testsuite.in:357:   test_any_equal([[    array x = ({ "x", "a", "-b" });    opt(x, ({ "y", Getopt.HAS_ARG, "-b" }), 1 );    return x;   ]],[[ ({ "x", "a", "-b" }) ]])      test_do( putenv("POSIX_ME_HARDER", "1"); )   test_eval_error( Getop.get_args(({ "x", "a", "-b" }), -1, 1) )   test_equal( Getopt.get_args(({ "x", "a", "-b" }), 0, 1), ({ "x", "a", "-b" }))   test_equal( Getopt.get_args(({ "x", 0, "-b" }), 0, 1), ({ "x", "-b" })) - test_eval_error( opt( ({"x","a","-b"}), ({"y",Getopt.HAS_ARG,"-b"}), -1, 1 )) + test_eval_error( opt( ({"x","a","-b"}), ({"y",Getopy.HAS_ARG,"-b"}), -1 ))   test_any_equal([[    array x = ({ "x", "a", "-b" });    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" }) ]])