]> xenbits.xensource.com Git - people/dariof/xen-tools.git/commitdiff
Make t/xen-lists-images.t more strict: No more /i
authorAxel Beckert <abe@deuxchevaux.org>
Thu, 17 Jan 2013 21:17:37 +0000 (22:17 +0100)
committerAxel Beckert <abe@deuxchevaux.org>
Thu, 17 Jan 2013 21:17:37 +0000 (22:17 +0100)
t/xen-lists-images.t

index dc3dbda412c70098d31ff00f1d6e8d03781d5be6..69c4f4cab01720d82977d2a6437bcc6bc2ade3ea 100755 (executable)
@@ -109,22 +109,22 @@ EOS
     my $success = 0;
     foreach my $line ( split( /\n/, $output ) )
     {
-        if  ( $line =~ /Memory: ([0-9]+)/i )
+        if  ( $line =~ /Memory: ([0-9]+)/ )
         {
             is( $1, $memory, "We found the right amount of memory: $memory" );
             $success += 1;
         }
-        if  ( $line =~ /Name: (.*)/i )
+        if  ( $line =~ /Name: (.*)/ )
         {
             is( $1, $name, "We found the correct hostname: $name" );
             $success += 1;
         }
-        if  ( $line =~ /DHCP/i )
+        if  ( $line =~ /DHCP/ )
         {
             is( $dhcp, 1, "Found the right DHCP details" );
             $success += 1;
         }
-        if  ( $line =~ /IP: ([0-9.]+)/i )
+        if  ( $line =~ /IP: ([0-9.]+)/ )
         {
             is( $1, $ip, "We found the IP address: $ip" );
             is( $dhcp, 0, "And DHCP is disabled" );