| Commit | Line | Data |
|---|
| 9b657a62 |
1 | #!/usr/bin/env perl |
| 2 | use warnings; |
| 3 | use strict; |
| 4 | |
| 5 | use FindBin; |
| 6 | use lib "$FindBin::Bin/lib"; |
| 7 | use Test::More tests => 21; |
| 8 | |
| 9 | our ($pvio, $pvfm); |
| 10 | |
| 11 | use_ok('OtherTypes'); |
| 12 | |
| 13 | # Since we use use_ok, this is effectively 'compile time'. |
| 14 | |
| 15 | ok( defined *OtherTypes::foo{SCALAR}, |
| 16 | "SCALAR slot intact at compile time" ); |
| 17 | ok( defined *OtherTypes::foo{ARRAY}, |
| 18 | "ARRAY slot intact at compile time" ); |
| 19 | ok( defined *OtherTypes::foo{HASH}, |
| 20 | "HASH slot intact at compile time" ); |
| 21 | ok( defined *OtherTypes::foo{IO}, |
| 22 | "IO slot intact at compile time" ); |
| 23 | ok( defined *OtherTypes::foo{FORMAT}, |
| 24 | "FORMAT slot intact at compile time" ); |
| 25 | |
| 26 | is( $OtherTypes::foo, 23, |
| 27 | "SCALAR slot correct at compile time" ); |
| 28 | is( $OtherTypes::foo[0], "bar", |
| 29 | "ARRAY slot correct at compile time" ); |
| 30 | is( $OtherTypes::foo{mouse}, "trap", |
| 31 | "HASH slot correct at compile time" ); |
| 32 | is( *OtherTypes::foo{IO}, $pvio, |
| 33 | "IO slot correct at compile time" ); |
| 34 | is( *OtherTypes::foo{FORMAT}, $pvfm, |
| 35 | "FORMAT slot correct at compile time" ); |
| 36 | |
| 37 | eval q{ |
| 38 | ok( defined *OtherTypes::foo{SCALAR}, |
| 39 | "SCALAR slot intact at run time" ); |
| 40 | ok( defined *OtherTypes::foo{ARRAY}, |
| 41 | "ARRAY slot intact at run time" ); |
| 42 | ok( defined *OtherTypes::foo{HASH}, |
| 43 | "HASH slot intact at run time" ); |
| 44 | ok( defined *OtherTypes::foo{IO}, |
| 45 | "IO slot intact at run time" ); |
| 46 | |
| 47 | TODO: { |
| 48 | local $TODO = "Copying formats fails due to a bug in Perl."; |
| 49 | ok( defined *OtherTypes::foo{FORMAT}, |
| 50 | "FORMAT slot intact at run time" ); |
| 51 | } |
| 52 | |
| 53 | is( $OtherTypes::foo, 23, |
| 54 | "SCALAR slot correct at run time" ); |
| 55 | is( $OtherTypes::foo[0], "bar", |
| 56 | "ARRAY slot correct at run time" ); |
| 57 | is( $OtherTypes::foo{mouse}, "trap", |
| 58 | "HASH slot correct at run time" ); |
| 59 | is( *OtherTypes::foo{IO}, $pvio, |
| 60 | "IO slot correct at run time" ); |
| 61 | |
| 62 | TODO: { |
| 63 | local $TODO = "Copying formats fails due to a bug in Perl."; |
| 64 | is( *OtherTypes::foo{FORMAT}, $pvfm, |
| 65 | "FORMAT slot correct at run time" ); |
| 66 | } |
| 67 | }; |
projects / p5sagit/p5-mst-13.2.git / blame