summaryrefslogtreecommitdiff
path: root/t/request.t
diff options
context:
space:
mode:
Diffstat (limited to 't/request.t')
-rw-r--r--t/request.t37
1 files changed, 28 insertions, 9 deletions
diff --git a/t/request.t b/t/request.t
index 3880229..9a7eeb7 100644
--- a/t/request.t
+++ b/t/request.t
@@ -7,7 +7,7 @@ use SlackBuild::Info;
7use File::Temp; 7use File::Temp;
8use Test; 8use Test;
9 9
10plan tests => 6; 10plan tests => 7;
11 11
12#1 12#1
13my $req = new SlackBuild::Request( 13my $req = new SlackBuild::Request(
@@ -88,8 +88,9 @@ ok("$req",
88 q{{"package":"foo","prereq":["bar","baz"],"slackbuild_uri":"foo.tar.gz","source_uri":["foo-1.0.tar.gz"],"strategy":{"prereq":"keep"},"version":"1.0"}}); 88 q{{"package":"foo","prereq":["bar","baz"],"slackbuild_uri":"foo.tar.gz","source_uri":["foo-1.0.tar.gz"],"strategy":{"prereq":"keep"},"version":"1.0"}});
89 89
90#6 90#6
91my $fh = new File::Temp(UNLINK => 1); 91{
92print $fh <<'EOT' 92 my $fh = new File::Temp(UNLINK => 1);
93 print $fh <<'EOT'
93{ 94{
94 "package": "foo", 95 "package": "foo",
95 "version": "1.0", 96 "version": "1.0",
@@ -98,10 +99,28 @@ print $fh <<'EOT'
98 "prereq": "quux" 99 "prereq": "quux"
99} 100}
100EOT 101EOT
102 ;
103 $fh->flush;
104 $req = load SlackBuild::Request($fh->filename);
105 ok("$req",
106 q{{"build":"2","package":"foo","prereq":["quux"],"source_uri":["foo-1.1.tar.gz","bar-1.0.tar.gz"],"version":"1.0"}});
107}
108#7
109{
110 my $fh = new File::Temp(UNLINK => 1);
111 print $fh <<'EOT'
112---
113package: foo
114version: 1.0
115source_uri:
116 - foo-1.1.tar.gz
117 - bar-1.0.tar.gz
118build: 2
119prereq: quux
120EOT
101; 121;
102$fh->flush; 122 $fh->flush;
103$req = new SlackBuild::Request($fh->filename); 123 $req = load SlackBuild::Request($fh->filename);
104ok("$req", 124 ok("$req",
105 q{{"build":"2","package":"foo","prereq":["quux"],"source_uri":["foo-1.1.tar.gz","bar-1.0.tar.gz"],"version":"1.0"}}); 125 q{{"build":"2","package":"foo","prereq":["quux"],"source_uri":["foo-1.1.tar.gz","bar-1.0.tar.gz"],"version":"1.0"}});
106 126}
107

Return to:

Send suggestions and report system problems to the System administrator.