naive-bayes classifying index

half-tested by hand

1 files changed, 2 insertions, 2 deletions

diff --git a/t/parser.t b/t/parser.t
index aafbb27..49be92e 100644
--- a/t/parser.t
+++ b/t/parser.t
@@ -5,12 +5,12 @@ use MaildirIndexer::Parser;
 use MaildirIndexer::Email;
 
 subtest 'from string' => {
-    is-deeply parse-email(''), Nil, "empty string won't parse";
+    ok !parse-email(''), "empty string won't parse";
 
     my $message = q:to<EOM>;
     bad stuff
     EOM
-    is-deeply parse-email($message), Nil, "bad message won't parse";
+    ok !parse-email($message), "bad message won't parse";
 
     $message = q:to<EOM>;
     Head: value