--- parser3/tests/096.html	2003/07/24 11:25:58	1.2
+++ parser3/tests/096.html	2008/08/26 11:52:13	1.3
@@ -1,32 +1,31 @@
 @main[]
 ^test_exif[096_dir]
 
-@test_exif[dir]
-$file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]
-<table border=1>
-^file.menu{
-<tr valign=top>
-	$image[^image::measure[$dir/$file.name]]
-	<td>^image.html[$.width(100)$.height(100)]</td>
-	<td>
-		$file.name<hr>
-     	$exif[$image.exif]
-     	^if($exif){
-     		$keys[^exif._keys[]] ^keys.sort{$keys.key}
-     		^keys.menu{
-     			$key[$keys.key]
-     			$value[$exif.$key]
 
-     			${key}: <b>^show_exif_value[$value]</b><br>
-     		}
-     	}{
-     		no EXIF info<br>
-     	}
-    </td>
-</tr>
+@test_exif[dir][file;image;keys]
+$file[^file:list[$dir;\.(?i:jpe?g)^$]]
+<table border="1">
+^file.menu{
+	<tr valign="top">
+		$image[^image::measure[$dir/$file.name]]
+		<td>^image.html[$.width(100)$.height(100)]</td>
+		<td>
+			$file.name<hr>
+			^if($image.exif){
+				$keys[^image.exif._keys[]]
+				^keys.sort{$keys.key}
+				^keys.menu{
+					${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
+				}[<br />]
+			}{
+				no EXIF info<br />
+			}
+		</td>
+	</tr>
 }
 </table>
 
+
 @show_exif_value[value][i]
 ^if($value is date){
 	^value.sql-string[]