|
@@ -13,14 +13,13 @@ my $stm = $repo->load_stm(stm=>'/release/rc.stm');
|
13
|
13
|
ok($stm, "master is true");
|
14
|
14
|
|
15
|
15
|
my ($hc,$bc) = $stm->parse();
|
16
|
|
-
|
17
|
16
|
is($hc, 6, "parse() reported 6 headers");
|
18
|
17
|
is($bc, 13, "parse() reported 13 non-header lines");
|
19
|
18
|
|
20
|
|
-&helper::dmup(master=>$stm);
|
21
|
|
-
|
22
|
19
|
my $sts = $stm->generate_slave({ proto => "imap", os => "wxx" });
|
23
|
20
|
ok($sts, "slave is true");
|
|
21
|
+
|
|
22
|
+&helper::dmup(master=>$stm);
|
24
|
23
|
&helper::dmup(slave=>$sts);
|
25
|
24
|
|
26
|
25
|
done_testing();
|