Bug 8798: DBIx::Class base classes for all Koha tables

[koha.git] / t / Languages.t

diff --git a/t/Languages.t b/t/Languages.t
old mode 100644 (file)
new mode 100755 (executable)
index d3fb584..5918d95
--- 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');