--- trunk/t/3-normalize.t	2006/12/10 12:56:05	787
+++ trunk/t/3-normalize.t	2007/01/30 18:21:17	791
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 311;
+use Test::More tests => 322;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -194,6 +194,13 @@
 	cmp_ok( join('', suffix('xy', 'cd') ), 'eq', 'cdxy', 'suffix');
 	cmp_ok( join('', surround('->', '<-', 'a','b','c') ), 'eq', '->a<-->b<-->c<-', 'surround');
 
+	# count
+	my @el;
+	for my $i ( 0 .. 10 ) {
+		cmp_ok( count( @el ), '==', $i, "count($i)");
+		push @el, "element $i";
+	}
+
 	# lookups
 
 	throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()';