# New Ticket Created by Bernhard Schmalhofer
# Please include the string: [perl #23427]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=23427 >
Hi,
I'm just working on a Getopt::Long::GetOptions subroutine for Parrot m4.
Of course the goal is to let the PIR port behave just like 'GNU m4'.
Within that routine I need to check wether options from the command line
were specified in the option specification.
There I got a error from 'parrot' claiming that he can't find the op
'exists_i_p_sc'.
I have added this case in 't/pmc/perlhash.t'. A patch is attached.
If that op is indeed missing, I could go ahead an try to implement it.
CU, Bernhard
--
*************************************************
Bernhard Schmalhofer
Senior Developer
Biomax Informatics AG
Lochhamer Str. 11
82152 Martinsried, Germany
Tel: +49 89 89 55 74 - 839
Fax: +49 89 89 55 74 - 25
PGP: https://ssl.biomax.de/pgp/
Email: mailto:[EMAIL PROTECTED]
Web: http://www.biomax.de
*************************************************
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/63112/46463/3895fc/perlhash.t.patch
--- parrot_20030819/t/pmc/perlhash.t Wed Aug 13 17:00:18 2003
+++ parrot/t/pmc/perlhash.t Tue Aug 19 20:11:29 2003
@@ -1,6 +1,6 @@
#! perl
-use Parrot::Test tests => 29;
+use Parrot::Test tests => 30;
use Test::More;
output_is(<<CODE, <<OUTPUT, "Initial PerlHash tests");
@@ -948,6 +948,26 @@
print P2
end
CODE
+
+output_is(<<'CODE', <<OUTPUT, "exists with constant string key");
+ new P16, 23 # .PerlHash
+ set P16["key1"], "value for key1\n"
+ set S16, P16["key1"]
+ print S16
+ print "\n"
+ set I16, 777777777
+ print I16
+ print "\n"
+ exists I17, P16, "key1"
+ print I17
+ print "\n"
+ end
+
+CODE
+value for key1
+777777777
+1
+OUTPUT
1;
