Recovered from cvs revision 2007-05-19 04:43:00

ase/test/awk/adr-001.awk

@@ -0,0 +1,9 @@
+#!/bin/awk
+
+BEGIN { 
+        RS = "\n\n"; 
+        FS = "\n"; 
+}
+{ 
+	print $1, $NF;         
+}

ase/test/awk/adr-001.out

@@ -0,0 +1,12 @@
+BEGIN {
+	RS = "\n\n";
+	FS = "\n";
+}
+
+{
+	print $1,$NF;
+}
+
+James Brown 012-345-678
+Richie Ren 02-3473-9192
+Toh WeeKung 9102-1203

ase/test/awk/adr-en.data

@@ -0,0 +1,15 @@
+James Brown
+IBM
+Somewhere over the rainbow
+012-345-678
+
+Richie Ren
+Ezsystem
+Taipei Taiwan
+02-3473-9192
+
+Toh WeeKung
+Topaz
+Singapore
+9102-1203
+

ase/test/awk/regress.sh

@@ -21,6 +21,11 @@ run_init()
 		run_script_for_init "$script" "cou-en.data"
 	done
 
+	for script in adr-???.awk
+	do
+		run_script_for_init "$script" "adr-en.data"
+	done
+
 	for script in err-???.awk
 	do
 		run_script_for_init "$script" "err-en.data"
@@ -88,6 +93,24 @@ run_test()
 		fi
 	done
 
+	for script in adr-???.awk
+	do
+		run_script_for_test "$script" "adr-en.data"
+		if [ $? -ne 0 ]
+		then
+			echo "###################################"
+			echo "PROBLEM(S) DETECTED IN $script.".
+			echo "###################################"
+
+			echo "Do you want to abort? [y/n]"
+			read ans
+			if [ "$ans" = "y" -o "$ans" = "Y" ]
+			then
+				return 1
+			fi
+		fi
+	done
+
 	for script in err-???.awk
 	do
 		run_script_for_test "$script" "err-en.data"