From f887806c5989fc3e5c86107d6ff945a6fc63b05c Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Tue, 20 Oct 2015 10:51:11 -0400
Subject: Various changes.

  * Use `env' to find perl binary.
  * Change flag --dumpconfig to command.
  * Add `dump' command to output table in tab-delimited format.
  * Update documentation.
---
 t/lib.t | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 't/lib.t')

diff --git a/t/lib.t b/t/lib.t
index 21e1c09..1f32c08 100644
--- a/t/lib.t
+++ b/t/lib.t
@@ -1,6 +1,6 @@
 # -*- Mode: cperl -*-
 
-use Test::More tests => 31;
+use Test::More tests => 41;
 
 use strict;
 use warnings;
@@ -63,6 +63,19 @@ test_file('wrongdomain', 1);
 test_file('nosubj', 1);
 test_file('bar', 0);
 
+ok(SpamCat->can('get_table'));
+my @rows = @{$sch->get_table()};
+is($#rows, 3);
+@rows = sort { $a->{sender} cmp $b->{sender} } @rows;
+is($rows[0]->{sender}, 'bar');
+is($rows[0]->{count}, 0);
+is($rows[1]->{sender}, 'foo');
+is($rows[1]->{count}, 16);
+is($rows[2]->{sender}, 'name1');
+is($rows[2]->{count}, 20);
+is($rows[3]->{sender}, 'nosubj');
+is($rows[3]->{count}, 20);
+
 sub test_file {
   my ($filen, $should_exist) = @_;
 
-- 
cgit v1.2.3