don't expect specific order in cookie

PerlDancer · Dec 15, 2012 · d4598c0 · d4598c0
1 parent 6bac57e
commit d4598c0
Showing 1 changed file with 15 additions and 6 deletions.
diff --git a/t/09_cookies/05_api.t b/t/09_cookies/05_api.t
@@ -23,13 +23,22 @@ foreach my $test (@tests) {
        "HttpOnly is correctly set";
 }
 
-ok my $c = Dancer::Cookie->new(
-    name  => 'complex',
-    value => { token => 'foo', token_secret => 'bar' },
-);
+{
+    my $values = { token => 'foo', token_secret => 'bar' };
+
+    ok my $c = Dancer::Cookie->new(
+        name  => 'complex',
+        value => $values,
+    );
+
+    subtest "cookie header" => sub {
+        ok $c->to_header =~ /^complex=([^;]+);/, "cookie name";
 
-my $text = $c->to_header;
-like $text, qr/complex=token&foo&token_secret&bar/;
+        my %cookie_values = split '&', $1;
+
+        is_deeply \%cookie_values => $values, "cookie values";
+    };
+}
 
 my $env = {
     REQUEST_METHOD => 'GET',