t/07-edge-cases.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5
   6 use Package::Stash;
   7
   8 {
   9     package Foo;
  10     use constant FOO => 1;
  11     use constant BAR => \1;
  12     use constant BAZ => [];
  13     use constant QUUX => {};
  14     use constant QUUUX => sub { };
  15     sub normal { }
  16     sub stub;
  17     sub normal_with_proto () { }
  18     sub stub_with_proto ();
  19
  20     our $SCALAR;
  21     our @ARRAY;
  22     our %HASH;
  23 }
  24
  25 my $stash = Package::Stash->new('Foo');
  26 ok($stash->has_package_symbol('$SCALAR'), '$SCALAR');
  27 ok($stash->has_package_symbol('@ARRAY'), '@ARRAY');
  28 ok($stash->has_package_symbol('%HASH'), '%HASH');
  29 is_deeply(
  30     [sort $stash->list_all_package_symbols('CODE')],
  31     [qw(BAR BAZ FOO QUUUX QUUX normal normal_with_proto stub stub_with_proto)],
  32     "can see all code symbols"
  33 );
  34
  35 done_testing;