diff options
Diffstat (limited to 't/request.t')
-rw-r--r-- | t/request.t | 37 |
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; | |||
7 | use File::Temp; | 7 | use File::Temp; |
8 | use Test; | 8 | use Test; |
9 | 9 | ||
10 | plan tests => 6; | 10 | plan tests => 7; |
11 | 11 | ||
12 | #1 | 12 | #1 |
13 | my $req = new SlackBuild::Request( | 13 | my $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 |
91 | my $fh = new File::Temp(UNLINK => 1); | 91 | { |
92 | print $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 | } |
100 | EOT | 101 | EOT |
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 | --- | ||
113 | package: foo | ||
114 | version: 1.0 | ||
115 | source_uri: | ||
116 | - foo-1.1.tar.gz | ||
117 | - bar-1.0.tar.gz | ||
118 | build: 2 | ||
119 | prereq: quux | ||
120 | EOT | ||
101 | ; | 121 | ; |
102 | $fh->flush; | 122 | $fh->flush; |
103 | $req = new SlackBuild::Request($fh->filename); | 123 | $req = load SlackBuild::Request($fh->filename); |
104 | ok("$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 | |||