diff options
| author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-01-02 12:30:00 +0000 |
|---|---|---|
| committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-01-02 12:30:00 +0000 |
| commit | bfaf3f426163c10c631d03bf2ce03fb34e74fdd9 (patch) | |
| tree | 348749e0d12cb5f0ac1db0c0f5920b68cecfef1c /t/02errors.t | |
| download | Sub-Identify-tarball-master.tar.gz | |
Sub-Identify-0.10HEADSub-Identify-0.10master
Diffstat (limited to 't/02errors.t')
| -rw-r--r-- | t/02errors.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/02errors.t b/t/02errors.t new file mode 100644 index 0000000..9bd9586 --- /dev/null +++ b/t/02errors.t @@ -0,0 +1,19 @@ +#!perl + +use Test::More tests => 12; +use Sub::Identify ':all'; + +ok( !defined sub_name( undef ) ); +ok( !defined sub_name( "scalar" ) ); +ok( !defined sub_name( \"scalar ref" ) ); +ok( !defined sub_name( \@INC ) ); + +ok( !defined stash_name( undef ) ); +ok( !defined stash_name( "scalar" ) ); +ok( !defined stash_name( \"scalar ref" ) ); +ok( !defined stash_name( \@INC ) ); + +ok( !defined get_code_location( undef ) ); +ok( !defined get_code_location( "scalar" ) ); +ok( !defined get_code_location( \"scalar ref" ) ); +ok( !defined get_code_location( \@INC ) ); |