Update test code for Sisimai::Order #333

t/041-order.t

@@ -5,23 +5,59 @@ use Sisimai::Order;
 
 my $PackageName = 'Sisimai::Order';
 my $MethodNames = {
-    'class' => ['by', 'default', 'another', 'headers'],
+    'class' => ['by', 'default', 'another', 'headers', 'forjson'],
     'object' => [],
 };
 
 use_ok $PackageName;
 can_ok $PackageName, @{ $MethodNames->{'class'} };
 
 MAKE_TEST: {
-    my $default = Sisimai::Order->default;
-    my $another = Sisimai::Order->another;
-    my $headers = Sisimai::Order->headers;
-    my $orderby = Sisimai::Order->by('subject');
+    my $default = $PackageName->default;
+    my $another = $PackageName->another;
+    my $headers = $PackageName->headers;
+    my $orderby = $PackageName->by('subject');
+    my $forjson = $PackageName->forjson;
 
     isa_ok $default, 'ARRAY';
     isa_ok $another, 'ARRAY';
+    isa_ok $forjson, 'ARRAY';
     isa_ok $headers, 'HASH';
     isa_ok $orderby, 'HASH';
+
+    ok scalar @$default, scalar(@$default).' Modules';
+    ok scalar @$another, scalar(@$another).' Modules';
+    ok scalar @$forjson, scalar(@$forjson).' Modules';
+    ok keys %$headers, scalar(keys %$headers).' Headers';
+    ok keys %$orderby, scalar(keys %$orderby).' Patterns';
+
+    for my $v ( @$default, @$another, @$forjson ) {
+        # Module name test
+        like $v, qr/\ASisimai::Lhost::/, $v;
+        use_ok $v;
+    }
+
+    for my $v ( keys %$headers ) {
+        # Header name table
+        like $v, qr/\A[a-z][-a-z]+\z/, $v;
+        for my $w ( @{ $headers->{ $v } } ) {
+            # Module name test
+            like $w, qr/\ASisimai::Lhost::/, $v.' => '.$w;
+        }
+    }
+
+    for my $v ( keys %$orderby ) {
+        # Pattern table for detecting MTA
+        ok $v, 'subject =~ '.$v;
+        ok scalar @{ $orderby->{ $v } };
+        for my $w ( @{ $orderby->{ $v } } ) {
+            ok length $w;
+            use_ok $w;
+        }
+    }
+
+    isa_ok $PackageName->by('neko'), 'HASH';
+    is scalar keys %{ $PackageName->by('neko') }, 0;
 }
 
 done_testing;