X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FLanguages.t;h=5918d95f5f9078f8519d7cf9b27efdb5f66d0f27;hb=HEAD;hp=d3fb584ca7613a49d36703f5cb5514ac9d91f759;hpb=77618f43cf589c5dddcf5ad13f8afda51d1a1129;p=koha.git

diff --git a/t/Languages.t b/t/Languages.t
old mode 100644
new mode 100755
index d3fb584ca7..5918d95f5f
--- a/t/Languages.t
+++ b/t/Languages.t
@@ -1,5 +1,19 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use C4::Languages;
-$loaded = 1;
-print "ok 1\n";
+#!/usr/bin/perl
+#
+# This Koha test module is a stub!  
+# Add more tests here!!!
+
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+
+BEGIN {
+        use_ok('C4::Languages');
+}
+
+isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return undef');
+
+ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs');
+
+is(C4::Languages::accept_language(),undef, 'test that accept_languages returns undef when nothing is entered');