added a few more tests

mojolicious · Sep 6, 2011 · 4c95280 · 4c95280
1 parent 8ff9e58
commit 4c95280
Showing 1 changed file with 28 additions and 1 deletion.
diff --git a/t/mojo/cookiejar.t b/t/mojo/cookiejar.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use Mojo::Base -strict;
 
-use Test::More tests => 83;
+use Test::More tests => 89;
 
 # "Hello, my name is Mr. Burns. I believe you have a letter for me.
 #  Okay Mr. Burns, what’s your first name.
@@ -117,6 +117,33 @@ is $cookies[1]->name,  'foo', 'right name';
 is $cookies[1]->value, 'bar', 'right value';
 is $cookies[2], undef, 'no third cookie';
 
+# Random top-level domain
+$jar = Mojo::CookieJar->new;
+$jar->add(
+  Mojo::Cookie::Response->new(
+    domain => 'com',
+    path   => '/foo',
+    name   => 'foo',
+    value  => 'bar'
+  )
+);
+$jar->add(
+  Mojo::Cookie::Response->new(
+    domain => 'kraih.com',
+    path   => '/foo',
+    name   => 'bar',
+    value  => 'baz'
+  )
+);
+@cookies = $jar->find(Mojo::URL->new('http://kraih.com/foo'));
+is $cookies[0]->name,  'bar', 'right name';
+is $cookies[0]->value, 'baz', 'right value';
+is $cookies[1], undef, 'no second cookie';
+@cookies = $jar->find(Mojo::URL->new('http://kraih.com/foo'));
+is $cookies[0]->name,  'bar', 'right name';
+is $cookies[0]->value, 'baz', 'right value';
+is $cookies[1], undef, 'no second cookie';
+
 # Huge cookie
 $jar = Mojo::CookieJar->new;
 $jar->add(