Bug 11540: increase test coverage of Charset.pm

To test
1. run prove t/Charset.t
2. apply patch
3. run prove t/Charset.t
 notice more tests are run

Signed-off-by: Tom Houlker <thomas.houlker@hibs.school.nz>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Tests pass!

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/t/Charset.t b/t/Charset.t
index 7de3414..8debbd7 100755 (executable)
--- a/t/Charset.t
+++ b/t/Charset.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 BEGIN {
     use_ok('C4::Charset');
 }
@@ -18,3 +18,5 @@ ok(!utf8::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn
 
 $octets = "a\xc2" . "c";
 ok(!IsStringUTF8ish($octets), "verify octets are not valid UTF-8");
+
+ok(!SetUTF8Flag(), 'Testing SetUTF8Flag' );