From 5a343b63c47cfae595d954a550c21521f2311af2 Mon Sep 17 00:00:00 2001
From: Emma Heath <emmaheath.student@wegc.school.nz>
Date: Tue, 14 Jan 2014 14:18:47 +1300
Subject: [PATCH] [PASSED QA] Bug 11540: increasing 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!
---
 t/Charset.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Charset.t b/t/Charset.t
index 7de3414..8debbd7 100755
--- 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' );
-- 
1.8.3.2