diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-06-19 11:33:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-19 19:03:07 +0000 |
| commit | 601f2d16e592dad4a4b6a344fbe935aa06230d2e (patch) | |
| tree | b500d8f3bec9347ac0ab84287841e0d7c46c20d0 /t | |
| parent | 47af93600f5196082b45ca5744631cd71ddc84b3 (diff) | |
| download | perl-601f2d16e592dad4a4b6a344fbe935aa06230d2e.tar.gz | |
[ID 20010619.007] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-perlio 4.0f (UNINSTALLED)
Message-Id: <200106191933.PAA08415@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@10730
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/1_compile.t | 1 | ||||
| -rw-r--r-- | t/lib/warnings/pp | 28 |
2 files changed, 15 insertions, 14 deletions
diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t index 29db2ccb70..027ced1f2d 100644 --- a/t/lib/1_compile.t +++ b/t/lib/1_compile.t @@ -251,6 +251,7 @@ UNIVERSAL User::grent User::pwent XS::Typemap +attributes attrs autouse base diff --git a/t/lib/warnings/pp b/t/lib/warnings/pp index 62f054a6ee..83786a023e 100644 --- a/t/lib/warnings/pp +++ b/t/lib/warnings/pp @@ -63,7 +63,7 @@ my $b = { 1,2,3}; EXPECT Odd number of elements in hash assignment at - line 3. ######## -# pp.c +# pp_pack.c use warnings 'pack' ; use warnings 'unpack' ; my @a = unpack ("A,A", "22") ; @@ -85,7 +85,7 @@ my $c = $$a; EXPECT Use of uninitialized value in scalar dereference at - line 4. ######## -# pp.c +# pp_pack.c use warnings 'pack' ; sub foo { my $a = "a"; return $a . $a++ . $a++ } my $a = pack("p", &foo) ; @@ -108,16 +108,16 @@ $_ = "\x80 \xff" ; reverse ; EXPECT ######## -# pp.c +# pp_pack.c use warnings 'pack' ; -print unpack("C", pack("C", -1)), "\n"; -print unpack("C", pack("C", 0)), "\n"; -print unpack("C", pack("C", 255)), "\n"; -print unpack("C", pack("C", 256)), "\n"; -print unpack("c", pack("c", -129)), "\n"; -print unpack("c", pack("c", -128)), "\n"; -print unpack("c", pack("c", 127)), "\n"; -print unpack("c", pack("c", 128)), "\n"; +print unpack("C", pack("C", -1)), "\n", + unpack("C", pack("C", 0)), "\n", + unpack("C", pack("C", 255)), "\n", + unpack("C", pack("C", 256)), "\n", + unpack("c", pack("c", -129)), "\n", + unpack("c", pack("c", -128)), "\n", + unpack("c", pack("c", 127)), "\n", + unpack("c", pack("c", 128)), "\n"; no warnings 'pack' ; print unpack("C", pack("C", -1)), "\n"; print unpack("C", pack("C", 0)), "\n"; @@ -129,9 +129,9 @@ print unpack("c", pack("c", 127)), "\n"; print unpack("c", pack("c", 128)), "\n"; EXPECT Character in "C" format wrapped at - line 3. -Character in "C" format wrapped at - line 6. -Character in "c" format wrapped at - line 7. -Character in "c" format wrapped at - line 10. +Character in "C" format wrapped at - line 3. +Character in "c" format wrapped at - line 3. +Character in "c" format wrapped at - line 3. 255 0 255 |