1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More qw/no_plan/;
use Socialtext::Resting::Mock;
use lib 't/lib';
use Test::WWW::Selenium qw/$SEL/; # mocked
BEGIN {
use lib 'lib';
use_ok 'Socialtext::WikiObject::TestPlan';
}
my $rester = Socialtext::Resting::Mock->new;
Base_fixture: {
$rester->put_page('Test Plan', <<EOT);
* Fixture: Socialtext::WikiFixture
| foo |
EOT
my $plan = Socialtext::WikiObject::TestPlan->new(
rester => $rester,
page => 'Test Plan',
);
eval { $plan->run_tests };
ok $@;
}
|
