Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
lib	[ DIR ]	drwxr-xr-x
00-basic.t	347 B	-rw-r--r--
01-function-wipeout.t	676 B	-rw-r--r--
02-inheritance.t	737 B	-rw-r--r--
03-unimport.t	427 B	-rw-r--r--
04-except.t	756 B	-rw-r--r--
05-explicit-cleanee.t	1.6 KB	-rw-r--r--
05-syntax-error.t	178 B	-rw-r--r--
06-other-types.t	1.41 KB	-rw-r--r--
07-debugger.t	660 B	-rw-r--r--
07-pseudo-debugger.t	405 B	-rw-r--r--
08-const-sub.t	162 B	-rw-r--r--
09-fiddle-hinthash.t	860 B	-rw-r--r--
10-pure-perl.t	1.93 KB	-rw-r--r--
11-multiclean-in-scope.t	1.55 KB	-rw-r--r--

Code Editor : 06-other-types.t

use warnings;
use strict;

use lib 't/lib';
use Test::More tests => 17;

our $pvio;

use_ok('OtherTypes');

# Since we use use_ok, this is effectively 'compile time'.

ok( defined *OtherTypes::foo{SCALAR},
    "SCALAR slot intact at compile time" );
ok( defined *OtherTypes::foo{ARRAY},
    "ARRAY slot intact at compile time" );
ok( defined *OtherTypes::foo{HASH},
    "HASH slot intact at compile time" );
ok( defined *OtherTypes::foo{IO},
    "IO slot intact at compile time" );

is( $OtherTypes::foo, 23,
    "SCALAR slot correct at compile time" );
is( $OtherTypes::foo[0], "bar",
    "ARRAY slot correct at compile time" );
is( $OtherTypes::foo{mouse}, "trap",
    "HASH slot correct at compile time" );
is( *OtherTypes::foo{IO}, $pvio,
    "IO slot correct at compile time" );

eval q{
    ok( defined *OtherTypes::foo{SCALAR},
        "SCALAR slot intact at run time" );
    ok( defined *OtherTypes::foo{ARRAY},
        "ARRAY slot intact at run time" );
    ok( defined *OtherTypes::foo{HASH},
        "HASH slot intact at run time" );
    ok( defined *OtherTypes::foo{IO},
        "IO slot intact at run time" );

is( $OtherTypes::foo, 23,
        "SCALAR slot correct at run time" );
    is( $OtherTypes::foo[0], "bar",
        "ARRAY slot correct at run time" );
    is( $OtherTypes::foo{mouse}, "trap",
        "HASH slot correct at run time" );
    is( *OtherTypes::foo{IO}, $pvio,
        "IO slot correct at run time" );
};

${this.title}

Code Editor : 06-other-types.t