--- EPrints/t/EPrints.t	2007/06/29 09:21:11	3
+++ EPrints/t/EPrints.t	2007/06/29 09:52:53	4
@@ -4,7 +4,7 @@
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 use Data::Dump qw/dump/;
 use Cwd qw/abs_path/;
 
@@ -17,3 +17,8 @@
 
 ok( EPrints->id( 42 ), 'id' );
 ok( EPrints->lookup( 'title' ), 'title' );
+
+is_deeply( [ EPrints::slogovi( 'otorinolaringolog je duga riječ' ) ],
+	[ qw/0o 1to 2ri 3no 4la 5ri 6ngo 7lo 8g 0je 0du 1ga 0ri 1je 2č/ ],
+	'slogovi' );
+