Bladeren bron

Added basic header passing

Alois Mahdal (@azzgoat) 11 jaren geleden
bovenliggende
commit
4a146301b1
2 gewijzigde bestanden met toevoegingen van 5 en 1 verwijderingen
  1. 4
    0
      lib/SugarTrail/STM.pm
  2. 1
    1
      t/Repo.t

+ 4
- 0
lib/SugarTrail/STM.pm Bestand weergeven

70
         }
70
         }
71
     }
71
     }
72
 
72
 
73
+    $sts->{meta}->{'Stm'} = $self->{stm};
74
+    $sts->{meta}->{'Stm Revision'} = $self->get_current_revision();
75
+    $sts->{meta}->{'Params'} = mkmymime($args);
76
+
73
     $sts->{lines} = \@lines;
77
     $sts->{lines} = \@lines;
74
     return $sts;
78
     return $sts;
75
 }
79
 }

+ 1
- 1
t/Repo.t Bestand weergeven

19
 
19
 
20
 &helper::dmupp(stm=>$stm);
20
 &helper::dmupp(stm=>$stm);
21
 
21
 
22
-my $sts = $stm->generate_sts({ proto => "imap" });
22
+my $sts = $stm->generate_sts({ proto => "imap", os => "wxx" });
23
 ok($sts,            "sts is true");
23
 ok($sts,            "sts is true");
24
 &helper::dmupp(sts=>$sts);
24
 &helper::dmupp(sts=>$sts);
25
 
25