Lines Matching refs:filetest
14 my $error = "filetest: the only implemented subpragma is 'access'.\n";
17 ok( require filetest, 'required pragma successfully' );
20 eval { filetest->import('bad subpragma') };
21 is( $@, $error, 'filetest dies with bad subpragma on import' );
28 use_ok( 'filetest', 'access' );
31 filetest->import('access');
35 filetest->unimport('access');
38 eval { filetest->unimport() };
39 is( $@, $error, 'filetest dies without subpragma on unimport' );
42 eval "no filetest 'fake pragma'";
43 like( $@, qr/^$error/, 'filetest dies with bad subpragma on unuse' );
45 eval "use filetest 'bad subpragma'";
46 like( $@, qr/^$error/, 'filetest dies with bad subpragma on use' );
48 eval "use filetest";
49 like( $@, qr/^$error/, 'filetest dies with missing subpragma on use' );
51 eval "no filetest";
52 like( $@, qr/^$error/, 'filetest dies with missing subpragma on unuse' );
55 # A real test for filetest.
58 my $tstfile = "filetest.tst";
76 use filetest 'access';
86 no filetest 'access';