From aee0c6e34baa71f02f0e81a430f67f3d7ae54f31 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Wed, 28 Jul 2010 13:50:08 +0200
Subject: More tests. 100% total code coverage :)

---
 bin/icli | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'bin/icli')

diff --git a/bin/icli b/bin/icli
index 19280c7..c5fd4ac 100755
--- a/bin/icli
+++ b/bin/icli
@@ -21,7 +21,7 @@ sub have_host {
 	if ($list_type eq 's') {
 		return exists $data->{services}->{$host};
 	}
-	elsif ($list_type eq 'h') {
+	else {
 		return exists $data->{hosts}->{$host};
 	}
 }
@@ -66,7 +66,7 @@ sub read_objects_line {
 				# skipped for now
 			}
 			default {
-				warn("Unknown field in $status_file: $context\n");
+				die("Unknown field in $status_file: $context\n");
 			}
 		}
 		$cache = undef;
@@ -102,7 +102,7 @@ sub service_state {
 		when(1) { return with_colour(' WARNING', 'black on_yellow') }
 		when(2) { return with_colour('CRITICAL', 'white on_red'   ) }
 		when(3) { return with_colour(' UNKNOWN', 'white on_blue'  ) }
-		default { return $digit }
+		default { die("Unknown service state: $digit\n") }
 	}
 }
 
@@ -112,7 +112,7 @@ sub host_state {
 		when(0) { return with_colour('    OK     ', 'black on_green') }
 		when(1) { return with_colour('   DOWN    ', 'white on_red'  ) }
 		when(2) { return with_colour('UNREACHABLE', 'white on_blue' ) }
-		default { return $digit }
+		default { die("Unknown host state: $digit\n") }
 	}
 }
 
@@ -169,7 +169,7 @@ sub display_host {
 	if ($list_type eq 'h') {
 		display_host_single($host);
 	}
-	elsif ($list_type eq 's') {
+	else {
 		display_host_services($host, $all);
 	}
 }
@@ -222,6 +222,9 @@ elsif ($list_type eq 'h') {
 		display_host($host, 1);
 	}
 }
+else {
+	die("See perldoc -F $0\n");
+}
 
 __END__
 
-- 
cgit v1.2.3