Lines Matching full:strict

1 use strict;
42 # print "# OK, making sure strict and strict.pm were in there...\n";
44 #       "# strict.pm, so skip these tests.)\n";
45 my $nopod = not exists ($name2where->{'strict'});
47   skip 'No Pod for strict.pm', 3 if $nopod;
48   like $name2where->{'strict'}, qr/strict\.(pod|pm)$/;
49   ok grep( m/strict\.(pod|pm)/, keys %$where2name);
51   ok my $strictpath = $name2where->{'strict'}, 'Should have strict path';
52   my @x = ($x->find('strict')||'(nil)', $strictpath);
56   is $x[0], $x[1], " find('strict') should match survey's name2where{strict}";
60 # strict.pm tests were skipped...\n";