diff options
Diffstat (limited to 'cpan/IO-Compress/t/01misc.t')
-rw-r--r-- | cpan/IO-Compress/t/01misc.t | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/cpan/IO-Compress/t/01misc.t b/cpan/IO-Compress/t/01misc.t index a7a31fbe15..85cfd37902 100644 --- a/cpan/IO-Compress/t/01misc.t +++ b/cpan/IO-Compress/t/01misc.t @@ -86,11 +86,14 @@ sub My::testParseParameters() like $@, mkErr("Parameter 'Fred' not a scalar"), "wanted scalar"; - #eval { ParseParameters(1, {'Fred' => [1, 1, Parse_any|Parse_multiple, 0]}, Fred => 1, Fred => 2) ; }; - #like $@, mkErr("Muliple instances of 'Fred' found"), - #"wanted scalar"; +# eval { ParseParameters(1, {'Fred' => [1, 1, Parse_any, 0]}, Fred => 1, Fred => 2) ; }; +# like $@, mkErr("Muliple instances of 'Fred' found"), +# "wanted scalar"; - ok 1; + my $g = ParseParameters(1, {'Fred' => [1, 1, Parse_unsigned|Parse_multiple, 7]}, Fred => 1, Fred => 2) ; + is_deeply $g->value('Fred'), [ 1, 2 ] ; + + #ok 1; my $got = ParseParameters(1, {'Fred' => [1, 1, 0x1000000, 0]}, Fred => 'abc') ; is $got->value('Fred'), "abc", "other" ; |