← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libtest-roo-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to t/setup-teardown.t

  • Committer: Package Import Robot
  • Author(s): gregor herrmann
  • Date: 2014-01-14 19:25:11 UTC
  • Revision ID: package-import@ubuntu.com-20140114192511-9ycl4dc1zgamfnek
Tags: upstream-1.002
Import upstream version 1.002

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/setup-teardown.t
 
1
use Test::Roo;
 
2
 
 
3
use lib 't/lib';
 
4
 
 
5
with 'SetTear';
 
6
 
 
7
after setup => sub { # intentionally *after* to check role
 
8
    my $self = shift;
 
9
    ok( $self->tempdir,  "got tempdir" );
 
10
    ok( $self->tempname, "got tempname" );
 
11
};
 
12
 
 
13
after teardown => sub {
 
14
    my $self = shift;
 
15
    is( $self->tempdir, undef, "tempdir cleared" );
 
16
    ok( !-e $self->tempname, "tempdir doesn't exist" );
 
17
};
 
18
 
 
19
test 'stub test' => sub { ok(1) };
 
20
 
 
21
run_me;
 
22
done_testing;