Branch: Tag:

2002-11-15

2002-11-15 22:03:06 by Henrik Grubbström (Grubba) <grubba@grubba.org>

More Getopt fixes.

Rev: lib/modules/testsuite.in:1.7

1: - dnl $Id: testsuite.in,v 1.6 2002/11/15 21:09:12 grubba Exp $ + dnl $Id: testsuite.in,v 1.7 2002/11/15 22:03:06 grubba Exp $      dnl - Array   
364:   test_eval_error( Getop.get_args(({ "x", "a", "-b" }), -1, 1) )   test_equal( Getopt.get_args(({ "x", "a", "-b" }), 1, 1), ({ "x", "a", "-b" }))   test_equal( Getopt.get_args(({ "x", 0, "-b" }), 1, 1), ({ "x", "-b" })) - test_eval_error( opt( ({"x","a","-b"}), ({"y",Getopy.HAS_ARG,"-b"}), -1 )) + test_eval_error( opt( ({"x","a","-b"}), ({"y",Getopt.HAS_ARG,"-b"}), -1, 1 ))   test_any_equal([[    array x = ({ "x", "a", "-b" }); -  opt(x, ({ "y", Getopt.HAS_ARG, "-b" }) ); +  opt(x, ({ "y", Getopt.HAS_ARG, "-b" }), 1, 1 );    return x;   ]],[[ ({ "x", "a", "-b" }) ]])   test_any_equal([[    array x = ({ "x", "a", "-b" }); -  opt(x, ({ "y", Getopt.HAS_ARG, "-b" }), 1); +  opt(x, ({ "y", Getopt.HAS_ARG, "-b" }), 1, 1);    return x;   ]],[[ ({ "x", "a", "-b" }) ]])