Przeglądaj źródła

Whitespace cleanup

Alois Mahdal 12 lat temu
rodzic
commit
afa3239a81
3 zmienionych plików z 7 dodań i 7 usunięć
  1. 4
    2
      lib/SugarTrail/Repo/Filesystem.pm
  2. 1
    2
      t/Cond.t
  3. 2
    3
      t/Repo.t

+ 4
- 2
lib/SugarTrail/Repo/Filesystem.pm Wyświetl plik

@@ -13,10 +13,12 @@ use Carp;
13 13
 sub new {
14 14
     my $class   = shift;
15 15
     my $args    = { @_ };
16
-    exists($args->{$_}) or croak "missing mandatory parameter: $_" foreach (qw/root/);
16
+    exists($args->{$_}) or croak "missing mandatory parameter: $_"
17
+        foreach (qw/root/);
17 18
     my $self    = { %$args };
18 19
     unless (-d $args->{root}) {
19
-       $self->{last_error} = "invalid repository root directory: " . $args->{root};
20
+       $self->{last_error} = "invalid repository root directory: "
21
+       . $args->{root};
20 22
        carp $self->{last_error};
21 23
     }
22 24
     return bless $self, $class;

+ 1
- 2
t/Cond.t Wyświetl plik

@@ -12,7 +12,6 @@ my $c = SugarTrail::Template::Condition->new('proto==imap');
12 12
 ok($c, "c is true");
13 13
 ok($c->match($params), "params match");
14 14
 
15
-
16 15
 &helper::dmupp(condition=>$c);
16
+
17 17
 done_testing();
18
-# os=@w7a,wxx;proto==imap;ver>=2012;

+ 2
- 3
t/Repo.t Wyświetl plik

@@ -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();