Index: t/pmc/signal.t
===================================================================
--- t/pmc/signal.t	(revision 14658)
+++ t/pmc/signal.t	(working copy)
@@ -150,3 +150,10 @@
 
 # check_running;
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/mmd.t
===================================================================
--- t/pmc/mmd.t	(revision 14658)
+++ t/pmc/mmd.t	(working copy)
@@ -1295,3 +1295,10 @@
 CODE
 BMU autobox type: String
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/boolean.t
===================================================================
--- t/pmc/boolean.t	(revision 14658)
+++ t/pmc/boolean.t	(working copy)
@@ -307,3 +307,10 @@
 ok 1
 ok 2
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/file.t
===================================================================
--- t/pmc/file.t	(revision 14658)
+++ t/pmc/file.t	(working copy)
@@ -274,3 +274,10 @@
 ok 2 - directory exists
 ok 3 - file does not exist
 OUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/timer.t
===================================================================
--- t/pmc/timer.t	(revision 14658)
+++ t/pmc/timer.t	(working copy)
@@ -273,3 +273,10 @@
 OUTPUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/globals.t
===================================================================
--- t/pmc/globals.t	(revision 14658)
+++ t/pmc/globals.t	(working copy)
@@ -93,3 +93,10 @@
 ok
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/fixedstringarray.t
===================================================================
--- t/pmc/fixedstringarray.t	(revision 14658)
+++ t/pmc/fixedstringarray.t	(working copy)
@@ -374,3 +374,10 @@
 
 1;
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/eval.t
===================================================================
--- t/pmc/eval.t	(revision 14658)
+++ t/pmc/eval.t	(working copy)
@@ -666,3 +666,10 @@
 CODE
 ok
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/sub.t
===================================================================
--- t/pmc/sub.t	(revision 14658)
+++ t/pmc/sub.t	(working copy)
@@ -1310,3 +1310,10 @@
     $P0()
 .end
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/fixedpmcarray.t
===================================================================
--- t/pmc/fixedpmcarray.t	(revision 14658)
+++ t/pmc/fixedpmcarray.t	(working copy)
@@ -541,3 +541,10 @@
 010
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/config.t
===================================================================
--- t/pmc/config.t	(revision 14658)
+++ t/pmc/config.t	(working copy)
@@ -61,3 +61,10 @@
 ok 1
 ok 2
 OUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/complex.t
===================================================================
--- t/pmc/complex.t	(revision 14658)
+++ t/pmc/complex.t	(working copy)
@@ -1913,3 +1913,10 @@
 done
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/fixedintegerarray.t
===================================================================
--- t/pmc/fixedintegerarray.t	(revision 14658)
+++ t/pmc/fixedintegerarray.t	(working copy)
@@ -341,3 +341,10 @@
 
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/array.t
===================================================================
--- t/pmc/array.t	(revision 14658)
+++ t/pmc/array.t	(working copy)
@@ -466,3 +466,10 @@
 
 1;
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/resizablepmcarray.t
===================================================================
--- t/pmc/resizablepmcarray.t	(revision 14658)
+++ t/pmc/resizablepmcarray.t	(working copy)
@@ -1122,4 +1122,10 @@
 OUTPUT
 
 # don't forget to change the number of tests
-# vim: expandtab sw=4
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/os.t
===================================================================
--- t/pmc/os.t	(revision 14658)
+++ t/pmc/os.t	(working copy)
@@ -338,3 +338,10 @@
   ok( $nl > 1, "hard link was really created");
   unlink "xpto" if -f "xpto"
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/n_arithmetics.t
===================================================================
--- t/pmc/n_arithmetics.t	(revision 14658)
+++ t/pmc/n_arithmetics.t	(working copy)
@@ -587,3 +587,10 @@
 14
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/threads.t
===================================================================
--- t/pmc/threads.t	(revision 14658)
+++ t/pmc/threads.t	(working copy)
@@ -1137,3 +1137,10 @@
 done main
 OUT
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/namespace.t
===================================================================
--- t/pmc/namespace.t	(revision 14658)
+++ t/pmc/namespace.t	(working copy)
@@ -808,3 +808,10 @@
 CODE
 parrot
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/resizableintegerarray.t
===================================================================
--- t/pmc/resizableintegerarray.t	(revision 14658)
+++ t/pmc/resizableintegerarray.t	(working copy)
@@ -433,3 +433,10 @@
 CODE
 2 20 10
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/sarray.t
===================================================================
--- t/pmc/sarray.t	(revision 14658)
+++ t/pmc/sarray.t	(working copy)
@@ -823,3 +823,10 @@
 OUTPUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/resizablefloatarray.t
===================================================================
--- t/pmc/resizablefloatarray.t	(revision 14658)
+++ t/pmc/resizablefloatarray.t	(working copy)
@@ -496,3 +496,10 @@
 CODE
 2 20.2 10.1
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/coroutine.t
===================================================================
--- t/pmc/coroutine.t	(revision 14658)
+++ t/pmc/coroutine.t	(working copy)
@@ -372,3 +372,10 @@
 OUTPUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/prop.t
===================================================================
--- t/pmc/prop.t	(revision 14658)
+++ t/pmc/prop.t	(working copy)
@@ -169,3 +169,10 @@
 zehn
 -
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/freeze.t
===================================================================
--- t/pmc/freeze.t	(revision 14658)
+++ t/pmc/freeze.t	(working copy)
@@ -839,3 +839,10 @@
 1 2 3 6
 1 2 3 6
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/ro.t
===================================================================
--- t/pmc/ro.t	(revision 14658)
+++ t/pmc/ro.t	(working copy)
@@ -279,3 +279,10 @@
 /NOT OKAY/
 OUTPUT
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/intlist.t
===================================================================
--- t/pmc/intlist.t	(revision 14658)
+++ t/pmc/intlist.t	(working copy)
@@ -462,3 +462,10 @@
 0
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/key.t
===================================================================
--- t/pmc/key.t	(revision 14658)
+++ t/pmc/key.t	(working copy)
@@ -57,3 +57,10 @@
 123
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/orderedhash.t
===================================================================
--- t/pmc/orderedhash.t	(revision 14658)
+++ t/pmc/orderedhash.t	(working copy)
@@ -809,3 +809,10 @@
 xyzzy
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/multiarray.t
===================================================================
--- t/pmc/multiarray.t	(revision 14658)
+++ t/pmc/multiarray.t	(working copy)
@@ -256,3 +256,10 @@
 3
 4
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/fixedbooleanarray.t
===================================================================
--- t/pmc/fixedbooleanarray.t	(revision 14658)
+++ t/pmc/fixedbooleanarray.t	(working copy)
@@ -328,3 +328,10 @@
 OUTPUT
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/undef.t
===================================================================
--- t/pmc/undef.t	(revision 14658)
+++ t/pmc/undef.t	(working copy)
@@ -254,3 +254,10 @@
 
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/builtin.t
===================================================================
--- t/pmc/builtin.t	(revision 14658)
+++ t/pmc/builtin.t	(working copy)
@@ -130,3 +130,10 @@
 
 }
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/string.t
===================================================================
--- t/pmc/string.t	(revision 14658)
+++ t/pmc/string.t	(working copy)
@@ -1353,3 +1353,10 @@
 CODE
 /invalid conversion to int - bad base 37/
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/io.t
===================================================================
--- t/pmc/io.t	(revision 14658)
+++ t/pmc/io.t	(working copy)
@@ -795,3 +795,10 @@
 /stat failed:/
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/sys.t
===================================================================
--- t/pmc/sys.t	(revision 14658)
+++ t/pmc/sys.t	(working copy)
@@ -57,3 +57,10 @@
 0
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/resizablebooleanarray.t
===================================================================
--- t/pmc/resizablebooleanarray.t	(revision 14658)
+++ t/pmc/resizablebooleanarray.t	(working copy)
@@ -894,3 +894,10 @@
 OUTPUT
 
 } # TODO
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/object-meths.t
===================================================================
--- t/pmc/object-meths.t	(revision 14658)
+++ t/pmc/object-meths.t	(working copy)
@@ -1133,3 +1133,10 @@
 CODE
 Foo!
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/fixedfloatarray.t
===================================================================
--- t/pmc/fixedfloatarray.t	(revision 14658)
+++ t/pmc/fixedfloatarray.t	(working copy)
@@ -340,3 +340,10 @@
 
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/env.t
===================================================================
--- t/pmc/env.t	(revision 14658)
+++ t/pmc/env.t	(working copy)
@@ -237,3 +237,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/objects.t
===================================================================
--- t/pmc/objects.t	(revision 14658)
+++ t/pmc/objects.t	(working copy)
@@ -2187,3 +2187,10 @@
 Ook!
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/pair.t
===================================================================
--- t/pmc/pair.t	(revision 14658)
+++ t/pmc/pair.t	(working copy)
@@ -93,3 +93,10 @@
 key value 77
 OUT
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/exception.t
===================================================================
--- t/pmc/exception.t	(revision 14658)
+++ t/pmc/exception.t	(working copy)
@@ -795,3 +795,10 @@
 at_exit
 a = 42
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/object-mro.t
===================================================================
--- t/pmc/object-mro.t	(revision 14658)
+++ t/pmc/object-mro.t	(working copy)
@@ -326,3 +326,10 @@
 CODE
 /inconsisten class hierarchy/
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/managedstruct.t
===================================================================
--- t/pmc/managedstruct.t	(revision 14658)
+++ t/pmc/managedstruct.t	(working copy)
@@ -262,3 +262,10 @@
 0
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/multisub.t
===================================================================
--- t/pmc/multisub.t	(revision 14658)
+++ t/pmc/multisub.t	(working copy)
@@ -34,3 +34,10 @@
 0
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/resizablestringarray.t
===================================================================
--- t/pmc/resizablestringarray.t	(revision 14658)
+++ t/pmc/resizablestringarray.t	(working copy)
@@ -1012,3 +1012,10 @@
 current instr\.:/
 OUTPUT
 #'
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/tqueue.t
===================================================================
--- t/pmc/tqueue.t	(revision 14658)
+++ t/pmc/tqueue.t	(working copy)
@@ -52,3 +52,10 @@
 2
 3
 OUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/nci.t
===================================================================
--- t/pmc/nci.t	(revision 14658)
+++ t/pmc/nci.t	(working copy)
@@ -2493,3 +2493,10 @@
 CODE
 42
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/delegate.t
===================================================================
--- t/pmc/delegate.t	(revision 14658)
+++ t/pmc/delegate.t	(working copy)
@@ -216,3 +216,10 @@
 777
 3
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/ref.t
===================================================================
--- t/pmc/ref.t	(revision 14658)
+++ t/pmc/ref.t	(working copy)
@@ -319,3 +319,10 @@
 OUTPUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/pmc/bigint.t
===================================================================
--- t/pmc/bigint.t	(revision 14658)
+++ t/pmc/bigint.t	(working copy)
@@ -928,3 +928,10 @@
 CODE
 ok
 OUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/stress/gc.t
===================================================================
--- t/stress/gc.t	(revision 14658)
+++ t/stress/gc.t	(working copy)
@@ -31,3 +31,10 @@
 OUTPUT
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/basic.t
===================================================================
--- t/src/basic.t	(revision 14658)
+++ t/src/basic.t	(working copy)
@@ -93,3 +93,10 @@
 OUTPUT
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/hash.t
===================================================================
--- t/src/hash.t	(revision 14658)
+++ t/src/hash.t	(working copy)
@@ -482,3 +482,10 @@
 
 ok
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/sprintf.t
===================================================================
--- t/src/sprintf.t	(revision 14658)
+++ t/src/sprintf.t	(working copy)
@@ -237,3 +237,10 @@
     return 0;
 }
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/intlist.t
===================================================================
--- t/src/intlist.t	(revision 14658)
+++ t/src/intlist.t	(working copy)
@@ -317,3 +317,10 @@
 OUTPUT
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/string.t
===================================================================
--- t/src/string.t	(revision 14658)
+++ t/src/string.t	(working copy)
@@ -86,3 +86,10 @@
 OUTPUT
 }
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/io.t
===================================================================
--- t/src/io.t	(revision 14658)
+++ t/src/io.t	(working copy)
@@ -697,3 +697,10 @@
 OUTPUT
 
 teardown("temp.file");
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/exit.t
===================================================================
--- t/src/exit.t	(revision 14658)
+++ t/src/exit.t	(working copy)
@@ -64,3 +64,10 @@
 ex1
 OUTPUT
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/compiler.t
===================================================================
--- t/src/compiler.t	(revision 14658)
+++ t/src/compiler.t	(working copy)
@@ -548,3 +548,10 @@
 Pir compiler returned no prog
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/src/list.t
===================================================================
--- t/src/list.t	(revision 14658)
+++ t/src/list.t	(working copy)
@@ -375,3 +375,10 @@
 OUTPUT
 # TODO
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/gdbmhash.t
===================================================================
--- t/dynpmc/gdbmhash.t	(revision 14658)
+++ t/dynpmc/gdbmhash.t	(working copy)
@@ -460,3 +460,10 @@
 OUTPUT
 unlink( 'gdbm_hash_1' );
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/sparse_perlarray.t
===================================================================
--- t/dynpmc/sparse_perlarray.t	(revision 14658)
+++ t/dynpmc/sparse_perlarray.t	(working copy)
@@ -1,211 +1,218 @@
-#! perl
-# Copyright (C) 2001-2006, The Perl Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-
-use Test::More;
-use Parrot::Test tests => 4;
-
-=head1 NAME
-
-t/dynpmc/sparse_perlarray.t - testing sparse arrays using the PerlArray PMC
-
-=head1 SYNOPSIS
-
-    % prove t/dynpmc/sparse_perlarray.t
-
-=head1 DESCRIPTION
-
-Tests various PMCs using the C<PerlArray> PMC for sparse array access.
-Once we have sparse array access in a core PMC, we can move these tests.
-
-=cut
-
-
-my $SPEEDUP = $ENV{RUNNING_MAKE_TEST} ? "gc_debug 0\n" : "";
-pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "IntList: direct access");
-    loadlib P20, 'perl_group'
-       new P0, .IntList
-	set S0, ""
-	set S1, "abcdefghijklmnopqrst"
-        set I10, 100000
-	set I0, 0
-lp:
-	set P0[I0], I0
-	inc I0
-	mod I9, I0, 100
-	ne I9, 0, lp1
-	# force GC => 142 DOD + 142 collects / 10^5 accesses
-    loadlib P20, 'perl_group'
-    find_type I21, 'PerlArray'
-    new P1,I21
-	set P1[I0], I0
-	concat S0, S1, S1
-	set S2, S0
-	set S0, S1
-	set S2, ""
-lp1:
-	le I0, I10, lp
-
-	set I0, 0
-lp2:
-	set I1, P0[I0]
-	ne I0, I1, err
-	inc I0
-	le I0, I10, lp2
-	print "ok\n"
-	end
-err:
-        print "err: wanted "
-	print I0
-	print " got "
-	print I1
-	print "\n"
-	end
-CODE
-ok
-OUTPUT
-
-pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "IntList: shift/unshift");
-    loadlib P20, 'perl_group'
-        new P0, .IntList
-	set I10, 100000
-	set S0, ""
-	set S1, "abcdefghijklmnopqrst"
-	set I0, 0
-lp:
-        unshift P0, I0
-	inc I0
-	mod I9, I0, 100
-	ne I9, 0, lp1
-	# force GC => 124 DOD + 124 collects / 10^5 accesses
-	# need .PerlArray here - it auto extends - intlist doesnt
-    loadlib P20, 'perl_group'
-    find_type I21, 'PerlArray'
-    new P1,I21
-	set P1[I0], I0
-	concat S0, S1, S1
-	set S2, S0
-	set S0, S1
-	set S2, ""
-lp1:
-	ne I0, I10, lp
-lp2:
-	dec I0
-	shift I1, P0
-	ne I0, I1, err
-	ne I0, 0, lp2
-	print "ok 1\n"
-	set I1, P0
-	set I0, 0
-	ne I0, 0, err
-	print "ok 2\n"
-	end
-err:
-        print "err: wanted "
-	print I0
-	print " got "
-	print I1
-	print "\n"
-	end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-
-pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "ResizableBooleanArray: direct access");
-    loadlib P20, 'perl_group'
-    new P0, .ResizableBooleanArray
-    set S0, ""
-    set S1, "abcdefghijklmnopqrst"
-    set I10, 100000
-    set I0, 0
-lp:
-    mod I2, I0, 2
-    set P0[I0], I2
-    inc I0
-    mod I9, I0, 100
-    ne I9, 0, lp1
-    # force GC => 142 DOD + 142 collects / 10^5 accesses
-    loadlib P20, 'perl_group'
-    find_type I21, 'PerlArray'
-    new P1,I21
-    set P1[I0], I0
-    concat S0, S1, S1
-    set S2, S0
-    set S0, S1
-    set S2, ""
-lp1:
-    le I0, I10, lp
-
-    set I0, 0
-lp2:
-    mod I2, I0, 2
-    set I1, P0[I0]
-    ne I2, I1, err
-    inc I0
-    le I0, I10, lp2
-    print "ok\n"
-    end
-err:
-    print "err: wanted "
-    print I0
-    print " got "
-    print I1
-    print "\n"
-    end
-CODE
-ok
-OUTPUT
-
-
-pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "ResizableStringArray: direct access");
-    new P0, .ResizableStringArray
-    set S0, ""
-    set S1, "abcdefghijklmnopqrst"
-    set I10, 100000
-    set I0, 0
-lp:
-    mod I2, I0, 2
-    set S30, I2
-    set P0[I0], S30
-    inc I0
-    mod I9, I0, 100
-    ne I9, 0, lp1
-    # force GC => 142 DOD + 142 collects / 10^5 accesses
-    loadlib P20, 'perl_group'
-    find_type I21, 'PerlArray'
-    new P1,I21
-    set P1[I0], I0
-    concat S0, S1, S1
-    set S2, S0
-    set S0, S1
-    set S2, ""
-lp1:
-    le I0, I10, lp
-
-    set I0, 0
-lp2:
-    mod I2, I0, 2
-    set S29, P0[I0]
-    set I16, S29
-    ne I2, I16, err
-    inc I0
-    le I0, I10, lp2
-    print "ok\n"
-    end
-err:
-    print "err: wanted "
-    print I0
-    print " got "
-    print S29
-    print "\n"
-    end
-CODE
-ok
-OUTPUT
-
+#! perl
+# Copyright (C) 2001-2006, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+
+use Test::More;
+use Parrot::Test tests => 4;
+
+=head1 NAME
+
+t/dynpmc/sparse_perlarray.t - testing sparse arrays using the PerlArray PMC
+
+=head1 SYNOPSIS
+
+    % prove t/dynpmc/sparse_perlarray.t
+
+=head1 DESCRIPTION
+
+Tests various PMCs using the C<PerlArray> PMC for sparse array access.
+Once we have sparse array access in a core PMC, we can move these tests.
+
+=cut
+
+
+my $SPEEDUP = $ENV{RUNNING_MAKE_TEST} ? "gc_debug 0\n" : "";
+pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "IntList: direct access");
+    loadlib P20, 'perl_group'
+       new P0, .IntList
+	set S0, ""
+	set S1, "abcdefghijklmnopqrst"
+        set I10, 100000
+	set I0, 0
+lp:
+	set P0[I0], I0
+	inc I0
+	mod I9, I0, 100
+	ne I9, 0, lp1
+	# force GC => 142 DOD + 142 collects / 10^5 accesses
+    loadlib P20, 'perl_group'
+    find_type I21, 'PerlArray'
+    new P1,I21
+	set P1[I0], I0
+	concat S0, S1, S1
+	set S2, S0
+	set S0, S1
+	set S2, ""
+lp1:
+	le I0, I10, lp
+
+	set I0, 0
+lp2:
+	set I1, P0[I0]
+	ne I0, I1, err
+	inc I0
+	le I0, I10, lp2
+	print "ok\n"
+	end
+err:
+        print "err: wanted "
+	print I0
+	print " got "
+	print I1
+	print "\n"
+	end
+CODE
+ok
+OUTPUT
+
+pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "IntList: shift/unshift");
+    loadlib P20, 'perl_group'
+        new P0, .IntList
+	set I10, 100000
+	set S0, ""
+	set S1, "abcdefghijklmnopqrst"
+	set I0, 0
+lp:
+        unshift P0, I0
+	inc I0
+	mod I9, I0, 100
+	ne I9, 0, lp1
+	# force GC => 124 DOD + 124 collects / 10^5 accesses
+	# need .PerlArray here - it auto extends - intlist doesnt
+    loadlib P20, 'perl_group'
+    find_type I21, 'PerlArray'
+    new P1,I21
+	set P1[I0], I0
+	concat S0, S1, S1
+	set S2, S0
+	set S0, S1
+	set S2, ""
+lp1:
+	ne I0, I10, lp
+lp2:
+	dec I0
+	shift I1, P0
+	ne I0, I1, err
+	ne I0, 0, lp2
+	print "ok 1\n"
+	set I1, P0
+	set I0, 0
+	ne I0, 0, err
+	print "ok 2\n"
+	end
+err:
+        print "err: wanted "
+	print I0
+	print " got "
+	print I1
+	print "\n"
+	end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+
+pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "ResizableBooleanArray: direct access");
+    loadlib P20, 'perl_group'
+    new P0, .ResizableBooleanArray
+    set S0, ""
+    set S1, "abcdefghijklmnopqrst"
+    set I10, 100000
+    set I0, 0
+lp:
+    mod I2, I0, 2
+    set P0[I0], I2
+    inc I0
+    mod I9, I0, 100
+    ne I9, 0, lp1
+    # force GC => 142 DOD + 142 collects / 10^5 accesses
+    loadlib P20, 'perl_group'
+    find_type I21, 'PerlArray'
+    new P1,I21
+    set P1[I0], I0
+    concat S0, S1, S1
+    set S2, S0
+    set S0, S1
+    set S2, ""
+lp1:
+    le I0, I10, lp
+
+    set I0, 0
+lp2:
+    mod I2, I0, 2
+    set I1, P0[I0]
+    ne I2, I1, err
+    inc I0
+    le I0, I10, lp2
+    print "ok\n"
+    end
+err:
+    print "err: wanted "
+    print I0
+    print " got "
+    print I1
+    print "\n"
+    end
+CODE
+ok
+OUTPUT
+
+
+pasm_output_is($SPEEDUP . <<'CODE', <<'OUTPUT', "ResizableStringArray: direct access");
+    new P0, .ResizableStringArray
+    set S0, ""
+    set S1, "abcdefghijklmnopqrst"
+    set I10, 100000
+    set I0, 0
+lp:
+    mod I2, I0, 2
+    set S30, I2
+    set P0[I0], S30
+    inc I0
+    mod I9, I0, 100
+    ne I9, 0, lp1
+    # force GC => 142 DOD + 142 collects / 10^5 accesses
+    loadlib P20, 'perl_group'
+    find_type I21, 'PerlArray'
+    new P1,I21
+    set P1[I0], I0
+    concat S0, S1, S1
+    set S2, S0
+    set S0, S1
+    set S2, ""
+lp1:
+    le I0, I10, lp
+
+    set I0, 0
+lp2:
+    mod I2, I0, 2
+    set S29, P0[I0]
+    set I16, S29
+    ne I2, I16, err
+    inc I0
+    le I0, I10, lp2
+    print "ok\n"
+    end
+err:
+    print "err: wanted "
+    print I0
+    print " got "
+    print S29
+    print "\n"
+    end
+CODE
+ok
+OUTPUT
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/perlarray.t
===================================================================
--- t/dynpmc/perlarray.t	(revision 14658)
+++ t/dynpmc/perlarray.t	(working copy)
@@ -1595,3 +1595,10 @@
 
 1;
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/foo.t
===================================================================
--- t/dynpmc/foo.t	(revision 14658)
+++ t/dynpmc/foo.t	(working copy)
@@ -202,3 +202,10 @@
 CODE
 42
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/perlhash.t
===================================================================
--- t/dynpmc/perlhash.t	(revision 14658)
+++ t/dynpmc/perlhash.t	(working copy)
@@ -1354,3 +1354,10 @@
 OUTPUT
 
 1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/quantumreg.t
===================================================================
--- t/dynpmc/quantumreg.t	(revision 14658)
+++ t/dynpmc/quantumreg.t	(working copy)
@@ -94,3 +94,10 @@
 0
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/dynlexpad.t
===================================================================
--- t/dynpmc/dynlexpad.t	(revision 14658)
+++ t/dynpmc/dynlexpad.t	(working copy)
@@ -203,3 +203,10 @@
 ok 3
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/sub.t
===================================================================
--- t/dynpmc/sub.t	(revision 14658)
+++ t/dynpmc/sub.t	(working copy)
@@ -66,3 +66,10 @@
 Sub
 SubProxy
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynpmc/perlstring.t
===================================================================
--- t/dynpmc/perlstring.t	(revision 14658)
+++ t/dynpmc/perlstring.t	(working copy)
@@ -2038,3 +2038,10 @@
 abcdef
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/compilers/pge/pge_globs.t
===================================================================
--- t/compilers/pge/pge_globs.t	(revision 14658)
+++ t/compilers/pge/pge_globs.t	(working copy)
@@ -142,3 +142,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/compilers/pge/pge-hs.t
===================================================================
--- t/compilers/pge/pge-hs.t	(revision 14658)
+++ t/compilers/pge/pge-hs.t	(working copy)
@@ -45,3 +45,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/compilers/pge/03-optable.t
===================================================================
--- t/compilers/pge/03-optable.t	(revision 14658)
+++ t/compilers/pge/03-optable.t	(working copy)
@@ -199,3 +199,10 @@
     $output .= "\n";
     pir_output_is($pir, $output, $msg, %opt);
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/compilers/pge/pge_util.t
===================================================================
--- t/compilers/pge/pge_util.t	(revision 14658)
+++ t/compilers/pge/pge_util.t	(working copy)
@@ -177,3 +177,10 @@
 -a-b-racad-a-b-ra
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/compilers/pge/pge_examples.t
===================================================================
--- t/compilers/pge/pge_examples.t	(revision 14658)
+++ t/compilers/pge/pge_examples.t	(working copy)
@@ -121,3 +121,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/compilers/pge/pge.t
===================================================================
--- t/compilers/pge/pge.t	(revision 14658)
+++ t/compilers/pge/pge.t	(working copy)
@@ -138,3 +138,10 @@
 }
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/tools/pbc_merge.t
===================================================================
--- t/tools/pbc_merge.t	(revision 14658)
+++ t/tools/pbc_merge.t	(working copy)
@@ -131,24 +131,31 @@
     pbc_merge("pbc_merge_t3", "pbc_merge_t3_1", "pbc_merge_t3_2");
     is(run_pbc("pbc_merge_t3"), "Stirb nicht vor mir");
 }
-
-# Fourth test - passing constant string arguments.
-{
-    pir_to_pbc( "pbc_merge_t4_1", <<'PIR' );
-.sub main :main
-    elephant()
-.end
-PIR
-
-    pir_to_pbc( "pbc_merge_t4_2", <<'PIR' );
-.sub elephant
-    trunk_action("spray")
-.end
-.sub trunk_action
-    .param string s
-    print s
-.end
-PIR
-    pbc_merge("pbc_merge_t4", "pbc_merge_t4_1", "pbc_merge_t4_2");
-    is(run_pbc("pbc_merge_t4"), "spray");
-}
+
+# Fourth test - passing constant string arguments.
+{
+    pir_to_pbc( "pbc_merge_t4_1", <<'PIR' );
+.sub main :main
+    elephant()
+.end
+PIR
+
+    pir_to_pbc( "pbc_merge_t4_2", <<'PIR' );
+.sub elephant
+    trunk_action("spray")
+.end
+.sub trunk_action
+    .param string s
+    print s
+.end
+PIR
+    pbc_merge("pbc_merge_t4", "pbc_merge_t4_1", "pbc_merge_t4_2");
+    is(run_pbc("pbc_merge_t4"), "spray");
+}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/tools/pmc2c.t
===================================================================
--- t/tools/pmc2c.t	(revision 14658)
+++ t/tools/pmc2c.t	(working copy)
@@ -181,3 +181,10 @@
                     interp, pmc_id, enum_class_Integer, entry
                 );
 END_C
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/perl/Parrot_IO.t
===================================================================
--- t/perl/Parrot_IO.t	(revision 14658)
+++ t/perl/Parrot_IO.t	(working copy)
@@ -222,3 +222,10 @@
     
     return $file;
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/perl/Parrot_Docs.t
===================================================================
--- t/perl/Parrot_Docs.t	(revision 14658)
+++ t/perl/Parrot_Docs.t	(working copy)
@@ -155,3 +155,10 @@
     
     return $file;
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/perl/Parrot_PIR_Formatter.t
===================================================================
--- t/perl/Parrot_PIR_Formatter.t	(revision 14658)
+++ t/perl/Parrot_PIR_Formatter.t	(working copy)
@@ -258,3 +258,10 @@
 
 =cut
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/perl/Parrot_Distribution.t
===================================================================
--- t/perl/Parrot_Distribution.t	(revision 14658)
+++ t/perl/Parrot_Distribution.t	(working copy)
@@ -38,3 +38,10 @@
 
 ok($d->file_for_perl_module('Parrot::Docs::Section::Parrot'), 'Perl module file');
 ok( ! $d->file_for_perl_module('Parrot::Dummy'), 'Perl module file not there');
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/perl/Parrot_Test.t
===================================================================
--- t/perl/Parrot_Test.t	(revision 14658)
+++ t/perl/Parrot_Test.t	(working copy)
@@ -1,279 +1,285 @@
-#! perl
-# Copyright (C) 2001-2006, The Perl Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-
-BEGIN {
-    eval "use Test::Builder::Tester;";
-    if ($@) {
-        print "1..0 # Skip Test::Builder::Tester not installed\n";
-        exit 0;
-    }
-} 
-use Test::More;
-
-
-=head1 NAME
-
-t/perl/Parrot_Test.t - Parrot::Test unit tests
-
-=head1 SYNOPSIS
-
-    % prove t/perl/Parrot_Test.t
-
-=head1 DESCRIPTION
-
-These tests cover the basic functionality of C<Parrot::Test>.
-
-=cut
-
-
-BEGIN
-{
-    my $pre_env = exists $ENV{PARROT_TEST} ? $ENV{PARROT_TEST} : undef;
-    use_ok('Parrot::Test') or die;
-
-    # XXX Shouldn't this be in an END block
-    my $post_env = exists $ENV{PARROT_TEST} ? $ENV{PARROT_TEST} : undef;
-    if ( defined $pre_env ) {
-        is( $post_env, $pre_env, 'PARROT_TEST env unchanged' );
-    } else {
-        is( $post_env, 1, 'PARROT_TEST env set' );
-    }
-}
-
-
-can_ok('Parrot::Test', $_) for qw/
-    language_output_is language_output_like language_output_isnt
-    example_output_is
-    pasm_output_is     pasm_output_like     pasm_output_isnt
-    past_output_is     past_output_like     past_output_isnt
-    pir_output_is      pir_output_like      pir_output_isnt
-    pir_2_pasm_is      pir_2_pasm_like      pir_2_pasm_isnt
-    pbc_output_is      pbc_output_like      pbc_output_isnt
-    c_output_is        c_output_like        c_output_isnt
-    plan
-    skip
-    slurp_file
-    run_command
-/;
-
-
-## TODO run_command
-
-
-## per_test
-is( Parrot::Test::per_test(), undef, 'per_test() no args' );
-is( Parrot::Test::per_test(undef, 0), undef, 'per_test() invalid first arg' );
-is( Parrot::Test::per_test(0, undef), undef, 'per_test() invalid second arg' );
-is( Parrot::Test::per_test(undef, undef), undef, 'per_test() two invalid args' );
-
-
-### TODO write_code_to_file, plan, skip, slurp_file, _generate_functions, example_output_is
-
-
-## test functions generated by Parrot::Test
-my( $desc, $err, $line );
-
-## PASM
-$desc = 'pasm_output_is: success';
-test_out "ok 1 - $desc";
-pasm_output_is <<'CODE', <<'OUTPUT', $desc;
-    print "ok\n"
-    end
-CODE
-ok
-OUTPUT
-test_test $desc;
-
-$desc = 'pasm_output_is: failure';
-$line = line_num(+11);
-test_out "not ok 1 - $desc";
-$err = <<ERR;
-#     Failed test ($0 at line $line)
-#          got: 'ok
-# '
-#     expected: 'not ok
-# '
-ERR
-chomp $err;
-test_err $err;
-pasm_output_is <<'CODE', <<"OUTPUT", $desc;
-    print "ok\n"
-    end
-CODE
-not ok
-OUTPUT
-test_test $desc;
-
-
-$desc = 'pasm_output_isnt: success';
-test_out "ok 1 - $desc";
-pasm_output_isnt <<'CODE', <<"OUTPUT", $desc;
-    print "ok\n"
-    end
-CODE
-not ok
-OUTPUT
-test_test $desc;
-
-$desc = 'pasm_output_isnt: failure';
-$line = line_num(+12);
-test_out "not ok 1 - $desc";
-$err = <<ERR;
-#     Failed test ($0 at line $line)
-#     'ok
-# '
-#         ne
-#     'ok
-# '
-ERR
-chomp $err;
-test_err $err;
-pasm_output_isnt <<'CODE', <<'OUTPUT', $desc;
-    print "ok\n"
-    end
-CODE
-ok
-OUTPUT
-test_test $desc;
-
-
-$desc = 'pasm_output_like: success';
-test_out "ok 1 - $desc";
-pasm_output_like <<'CODE', <<'OUTPUT', $desc;
-    print "ok\n"
-    end
-CODE
-/ok/
-OUTPUT
-test_test $desc;
-
-$desc = 'pasm_output_like: failure';
-$line = line_num(+11);
-test_out "not ok 1 - $desc";
-$err = <<ERR;
-#     Failed test ($0 at line $line)
-#                   'ok
-# '
-#     doesn't match '/not ok/
-# '
-ERR
-chomp $err;
-test_err $err;
-pasm_output_like <<'CODE', <<"OUTPUT", $desc;
-    print "ok\n"
-    end
-CODE
-/not ok/
-OUTPUT
-test_test $desc;
-
-
-## PIR
-$desc = 'pir_output_is: success';
-test_out "ok 1 - $desc";
-pir_output_is <<'CODE', <<'OUTPUT', $desc;
-.sub 'test' :main
-    print "ok\n"
-.end
-CODE
-ok
-OUTPUT
-test_test $desc;
-
-$desc = 'pir_output_is: failure';
-$line = line_num(+11);
-test_out "not ok 1 - $desc";
-$err = <<ERR;
-#     Failed test ($0 at line $line)
-#          got: 'ok
-# '
-#     expected: 'not ok
-# '
-ERR
-chomp $err;
-test_err $err;
-pir_output_is <<'CODE', <<"OUTPUT", $desc;
-.sub 'test' :main
-    print "ok\n"
-.end
-CODE
-not ok
-OUTPUT
-test_test $desc;
-
-
-$desc = 'pir_output_isnt: success';
-test_out "ok 1 - $desc";
-pir_output_isnt <<'CODE', <<"OUTPUT", $desc;
-.sub 'test' :main
-    print "ok\n"
-.end
-CODE
-not ok
-OUTPUT
-test_test $desc;
-
-$desc = 'pir_output_isnt: failure';
-$line = line_num(+12);
-test_out "not ok 1 - $desc";
-$err = <<ERR;
-#     Failed test ($0 at line $line)
-#     'ok
-# '
-#         ne
-#     'ok
-# '
-ERR
-chomp $err;
-test_err $err;
-pir_output_isnt <<'CODE', <<'OUTPUT', $desc;
-.sub 'test' :main
-    print "ok\n"
-.end
-CODE
-ok
-OUTPUT
-test_test $desc;
-
-
-$desc = 'pir_output_like: success';
-test_out "ok 1 - $desc";
-pir_output_like <<'CODE', <<'OUTPUT', $desc;
-.sub 'test' :main
-    print "ok\n"
-.end
-CODE
-/ok/
-OUTPUT
-test_test $desc;
-
-$desc = 'pir_output_like: failure';
-$line = line_num(+11);
-test_out "not ok 1 - $desc";
-$err = <<ERR;
-#     Failed test ($0 at line $line)
-#                   'ok
-# '
-#     doesn't match '/not ok/
-# '
-ERR
-chomp $err;
-test_err $err;
-pir_output_like <<'CODE', <<"OUTPUT", $desc;
-.sub 'test' :main
-    print "ok\n"
-.end
-CODE
-/not ok/
-OUTPUT
-test_test $desc;
-
-
-## vim: expandtab sw=4
-## remember to change the number of tests :-)
-BEGIN { plan tests => 42; }
+#! perl
+# Copyright (C) 2001-2006, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+
+BEGIN {
+    eval "use Test::Builder::Tester;";
+    if ($@) {
+        print "1..0 # Skip Test::Builder::Tester not installed\n";
+        exit 0;
+    }
+} 
+use Test::More;
+
+
+=head1 NAME
+
+t/perl/Parrot_Test.t - Parrot::Test unit tests
+
+=head1 SYNOPSIS
+
+    % prove t/perl/Parrot_Test.t
+
+=head1 DESCRIPTION
+
+These tests cover the basic functionality of C<Parrot::Test>.
+
+=cut
+
+
+BEGIN
+{
+    my $pre_env = exists $ENV{PARROT_TEST} ? $ENV{PARROT_TEST} : undef;
+    use_ok('Parrot::Test') or die;
+
+    # XXX Shouldn't this be in an END block
+    my $post_env = exists $ENV{PARROT_TEST} ? $ENV{PARROT_TEST} : undef;
+    if ( defined $pre_env ) {
+        is( $post_env, $pre_env, 'PARROT_TEST env unchanged' );
+    } else {
+        is( $post_env, 1, 'PARROT_TEST env set' );
+    }
+}
+
+
+can_ok('Parrot::Test', $_) for qw/
+    language_output_is language_output_like language_output_isnt
+    example_output_is
+    pasm_output_is     pasm_output_like     pasm_output_isnt
+    past_output_is     past_output_like     past_output_isnt
+    pir_output_is      pir_output_like      pir_output_isnt
+    pir_2_pasm_is      pir_2_pasm_like      pir_2_pasm_isnt
+    pbc_output_is      pbc_output_like      pbc_output_isnt
+    c_output_is        c_output_like        c_output_isnt
+    plan
+    skip
+    slurp_file
+    run_command
+/;
+
+
+## TODO run_command
+
+
+## per_test
+is( Parrot::Test::per_test(), undef, 'per_test() no args' );
+is( Parrot::Test::per_test(undef, 0), undef, 'per_test() invalid first arg' );
+is( Parrot::Test::per_test(0, undef), undef, 'per_test() invalid second arg' );
+is( Parrot::Test::per_test(undef, undef), undef, 'per_test() two invalid args' );
+
+
+### TODO write_code_to_file, plan, skip, slurp_file, _generate_functions, example_output_is
+
+
+## test functions generated by Parrot::Test
+my( $desc, $err, $line );
+
+## PASM
+$desc = 'pasm_output_is: success';
+test_out "ok 1 - $desc";
+pasm_output_is <<'CODE', <<'OUTPUT', $desc;
+    print "ok\n"
+    end
+CODE
+ok
+OUTPUT
+test_test $desc;
+
+$desc = 'pasm_output_is: failure';
+$line = line_num(+11);
+test_out "not ok 1 - $desc";
+$err = <<ERR;
+#     Failed test ($0 at line $line)
+#          got: 'ok
+# '
+#     expected: 'not ok
+# '
+ERR
+chomp $err;
+test_err $err;
+pasm_output_is <<'CODE', <<"OUTPUT", $desc;
+    print "ok\n"
+    end
+CODE
+not ok
+OUTPUT
+test_test $desc;
+
+
+$desc = 'pasm_output_isnt: success';
+test_out "ok 1 - $desc";
+pasm_output_isnt <<'CODE', <<"OUTPUT", $desc;
+    print "ok\n"
+    end
+CODE
+not ok
+OUTPUT
+test_test $desc;
+
+$desc = 'pasm_output_isnt: failure';
+$line = line_num(+12);
+test_out "not ok 1 - $desc";
+$err = <<ERR;
+#     Failed test ($0 at line $line)
+#     'ok
+# '
+#         ne
+#     'ok
+# '
+ERR
+chomp $err;
+test_err $err;
+pasm_output_isnt <<'CODE', <<'OUTPUT', $desc;
+    print "ok\n"
+    end
+CODE
+ok
+OUTPUT
+test_test $desc;
+
+
+$desc = 'pasm_output_like: success';
+test_out "ok 1 - $desc";
+pasm_output_like <<'CODE', <<'OUTPUT', $desc;
+    print "ok\n"
+    end
+CODE
+/ok/
+OUTPUT
+test_test $desc;
+
+$desc = 'pasm_output_like: failure';
+$line = line_num(+11);
+test_out "not ok 1 - $desc";
+$err = <<ERR;
+#     Failed test ($0 at line $line)
+#                   'ok
+# '
+#     doesn't match '/not ok/
+# '
+ERR
+chomp $err;
+test_err $err;
+pasm_output_like <<'CODE', <<"OUTPUT", $desc;
+    print "ok\n"
+    end
+CODE
+/not ok/
+OUTPUT
+test_test $desc;
+
+
+## PIR
+$desc = 'pir_output_is: success';
+test_out "ok 1 - $desc";
+pir_output_is <<'CODE', <<'OUTPUT', $desc;
+.sub 'test' :main
+    print "ok\n"
+.end
+CODE
+ok
+OUTPUT
+test_test $desc;
+
+$desc = 'pir_output_is: failure';
+$line = line_num(+11);
+test_out "not ok 1 - $desc";
+$err = <<ERR;
+#     Failed test ($0 at line $line)
+#          got: 'ok
+# '
+#     expected: 'not ok
+# '
+ERR
+chomp $err;
+test_err $err;
+pir_output_is <<'CODE', <<"OUTPUT", $desc;
+.sub 'test' :main
+    print "ok\n"
+.end
+CODE
+not ok
+OUTPUT
+test_test $desc;
+
+
+$desc = 'pir_output_isnt: success';
+test_out "ok 1 - $desc";
+pir_output_isnt <<'CODE', <<"OUTPUT", $desc;
+.sub 'test' :main
+    print "ok\n"
+.end
+CODE
+not ok
+OUTPUT
+test_test $desc;
+
+$desc = 'pir_output_isnt: failure';
+$line = line_num(+12);
+test_out "not ok 1 - $desc";
+$err = <<ERR;
+#     Failed test ($0 at line $line)
+#     'ok
+# '
+#         ne
+#     'ok
+# '
+ERR
+chomp $err;
+test_err $err;
+pir_output_isnt <<'CODE', <<'OUTPUT', $desc;
+.sub 'test' :main
+    print "ok\n"
+.end
+CODE
+ok
+OUTPUT
+test_test $desc;
+
+
+$desc = 'pir_output_like: success';
+test_out "ok 1 - $desc";
+pir_output_like <<'CODE', <<'OUTPUT', $desc;
+.sub 'test' :main
+    print "ok\n"
+.end
+CODE
+/ok/
+OUTPUT
+test_test $desc;
+
+$desc = 'pir_output_like: failure';
+$line = line_num(+11);
+test_out "not ok 1 - $desc";
+$err = <<ERR;
+#     Failed test ($0 at line $line)
+#                   'ok
+# '
+#     doesn't match '/not ok/
+# '
+ERR
+chomp $err;
+test_err $err;
+pir_output_like <<'CODE', <<"OUTPUT", $desc;
+.sub 'test' :main
+    print "ok\n"
+.end
+CODE
+/not ok/
+OUTPUT
+test_test $desc;
+
+
+## remember to change the number of tests :-)
+BEGIN { plan tests => 42; }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynoplibs/dan.t
===================================================================
--- t/dynoplibs/dan.t	(revision 14658)
+++ t/dynoplibs/dan.t	(working copy)
@@ -1,97 +1,104 @@
-#! perl
-# Copyright (C) 2006, The Perl Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 6;
-use Parrot::Config;
-
-
-=head1 NAME
-
-t/dynoplibs/dan.t - Test for the ops in src/dynoplibs/dan.ops
-
-=head1 SYNOPSIS
-
-	% prove t/dynoplibs/dan.t
-
-=head1 DESCRIPTION
-
-Tests the sample dynamic op library "dan".
-
-=cut
-
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_ic_nc");
-.loadlib "dan_ops"
-.sub main :main
-    mul $I1, 10, 2.5
-    print $I1
-    print "\n"
-.end
-CODE
-25
-OUTPUT
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_i_nc");
-.loadlib "dan_ops"
-.sub main :main
-	$I2 = 10
-    mul $I1, $I2, 4.2
-    print $I1
-    print "\n"
-.end
-CODE
-42
-OUTPUT
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_ic_n");
-.loadlib "dan_ops"
-.sub main :main
-	$N3 = 4.2
-    mul $I1, 10, $N3
-    print $I1
-    print "\n"
-.end
-CODE
-42
-OUTPUT
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_i_n");
-.loadlib "dan_ops"
-.sub main :main
-	$I2 = 10
-	$N3 = 4.2
-    mul $I1, $I2, $N3
-    print $I1
-    print "\n"
-.end
-CODE
-42
-OUTPUT
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "mul pir syntax");
-.loadlib "dan_ops"
-.sub main :main
-	$I2 = 10
-	$N3 = 4.2
-    $I1 = mul $I2, $N3
-    print $I1
-    print "\n"
-.end
-CODE
-42
-OUTPUT
-
-pasm_output_is(<< 'CODE', << 'OUTPUT', "mul pasm syntax");
-.loadlib "dan_ops"
-    mul I0, 3, 3.9
-    print I0
-    print "\n"
-    end
-CODE
-11
-OUTPUT
+#! perl
+# Copyright (C) 2006, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 6;
+use Parrot::Config;
+
+
+=head1 NAME
+
+t/dynoplibs/dan.t - Test for the ops in src/dynoplibs/dan.ops
+
+=head1 SYNOPSIS
+
+	% prove t/dynoplibs/dan.t
+
+=head1 DESCRIPTION
+
+Tests the sample dynamic op library "dan".
+
+=cut
+
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_ic_nc");
+.loadlib "dan_ops"
+.sub main :main
+    mul $I1, 10, 2.5
+    print $I1
+    print "\n"
+.end
+CODE
+25
+OUTPUT
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_i_nc");
+.loadlib "dan_ops"
+.sub main :main
+	$I2 = 10
+    mul $I1, $I2, 4.2
+    print $I1
+    print "\n"
+.end
+CODE
+42
+OUTPUT
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_ic_n");
+.loadlib "dan_ops"
+.sub main :main
+	$N3 = 4.2
+    mul $I1, 10, $N3
+    print $I1
+    print "\n"
+.end
+CODE
+42
+OUTPUT
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "mul_i_i_n");
+.loadlib "dan_ops"
+.sub main :main
+	$I2 = 10
+	$N3 = 4.2
+    mul $I1, $I2, $N3
+    print $I1
+    print "\n"
+.end
+CODE
+42
+OUTPUT
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "mul pir syntax");
+.loadlib "dan_ops"
+.sub main :main
+	$I2 = 10
+	$N3 = 4.2
+    $I1 = mul $I2, $N3
+    print $I1
+    print "\n"
+.end
+CODE
+42
+OUTPUT
+
+pasm_output_is(<< 'CODE', << 'OUTPUT', "mul pasm syntax");
+.loadlib "dan_ops"
+    mul I0, 3, 3.9
+    print I0
+    print "\n"
+    end
+CODE
+11
+OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/dynoplibs/myops.t
===================================================================
--- t/dynoplibs/myops.t	(revision 14658)
+++ t/dynoplibs/myops.t	(working copy)
@@ -1,181 +1,188 @@
-#! perl
-# Copyright (C) 2006, The Perl Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 7;
-use Parrot::Config;
-
-
-=head1 NAME
-
-t/dynoplibs/myops.t - Test for the ops in src/dynoplibs/myops.ops
-
-=head1 SYNOPSIS
-
-    % prove t/dynoplibs/myops.t
-
-=head1 DESCRIPTION
-
-Tests the sample dynamic op library "myops".
-
-=cut
-
-my $is_ms_win32 = $^O =~ m!MSWin32!;
-my $is_mingw    = $is_ms_win32 && grep { $PConfig{cc} eq $_ } qw(gcc gcc.exe);
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "fortytwo");
-.loadlib "myops_ops"
-.sub main :main
-    $I0 = fortytwo
-    print $I0
-    print "\n"
-.end
-CODE
-42
-OUTPUT
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "what_do_you_get_if_you_multiply_six_by_nine");
-.loadlib "myops_ops"
-.sub main :main
-    $S0 = what_do_you_get_if_you_multiply_six_by_nine
-    print $S0
-    print "\n"
-.end
-CODE
-fortytwo
-OUTPUT
-
-pir_output_like(<< 'CODE', << 'OUTPUT', "hcf");
-.loadlib "myops_ops"
-.sub main :main
-    print "neither here\n"
-    hcf
-    print "nor there\n"
-.end
-CODE
-/neither here
-(?!nor there)/
-OUTPUT
-
-{
-    my $quine = <<'END_PASM';
-.loadlib "myops_ops"
-q
-END_PASM
-    pasm_output_is( $quine, $quine, 'a short cheating quine');
-}
-
-pir_output_is(<< 'CODE', << 'OUTPUT', "one alarm");
-.loadlib "myops_ops"
-
-.sub main :main
-    find_global P0, "_alarm"
-    alarm 2.0, P0
-    set I0, 1
-loop:
-    sleep 1
-    print I0
-    print "\n"
-    inc I0
-    # check_events
-    le I0, 3, loop
-    print "done.\n"
-.end
-
-.sub _alarm
-    print "alarm\n"
-.end
-CODE
-1
-alarm
-2
-3
-done.
-OUTPUT
-
-SKIP: {
-    skip "three alarms, infinite loop under mingw32", 1 if $is_mingw;
-
-    pir_output_is(<< 'CODE', << 'OUTPUT', "three alarm");
-
-.loadlib "myops_ops"
-.sub main :main
-    find_global P0, "_alarm3"
-    alarm 3.3, 0.4, P0
-    find_global P0, "_alarm2"
-    alarm 2.2, P0
-    find_global P0, "_alarm1"
-    alarm 1.5, 2.0, P0
-    set I0, 1
-loop:
-    sleep 1
-    print I0
-    print "\n"
-    inc I0
-    # check_events
-    le I0, 5, loop
-    print "done.\n"
-.end
-
-.sub _alarm1
-    print "alarm1\n"
-.end
-
-.sub _alarm2
-    print "alarm2\n"
-.end
-
-.sub _alarm3
-    print "alarm3\n"
-.end
-
-CODE
-1
-alarm1
-2
-alarm2
-3
-alarm3
-alarm1
-alarm3
-4
-alarm3
-alarm3
-alarm3
-5
-done.
-OUTPUT
-}
-
-# bxand boolean op
-pasm_output_is(<<'CODE', <<'OUTPUT', 'bxand - A AND B, but not BOTH');
-.loadlib "myops_ops"
-
-    bxand I0, 0, 0
-    bsr test
-    bxand I0, 0, 1
-    bsr test
-    bxand I0, 1, 0
-    bsr test
-    bxand I0, 1, 1
-    bsr test
-
-    branch end
-  test:
-    eq I0, 1, T
-    print "F\n"
-    ret
-  T:print "T\n"
-    ret
-  end:
-    end
-CODE
-F
-F
-F
-F
-OUTPUT
+#! perl
+# Copyright (C) 2006, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 7;
+use Parrot::Config;
+
+
+=head1 NAME
+
+t/dynoplibs/myops.t - Test for the ops in src/dynoplibs/myops.ops
+
+=head1 SYNOPSIS
+
+    % prove t/dynoplibs/myops.t
+
+=head1 DESCRIPTION
+
+Tests the sample dynamic op library "myops".
+
+=cut
+
+my $is_ms_win32 = $^O =~ m!MSWin32!;
+my $is_mingw    = $is_ms_win32 && grep { $PConfig{cc} eq $_ } qw(gcc gcc.exe);
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "fortytwo");
+.loadlib "myops_ops"
+.sub main :main
+    $I0 = fortytwo
+    print $I0
+    print "\n"
+.end
+CODE
+42
+OUTPUT
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "what_do_you_get_if_you_multiply_six_by_nine");
+.loadlib "myops_ops"
+.sub main :main
+    $S0 = what_do_you_get_if_you_multiply_six_by_nine
+    print $S0
+    print "\n"
+.end
+CODE
+fortytwo
+OUTPUT
+
+pir_output_like(<< 'CODE', << 'OUTPUT', "hcf");
+.loadlib "myops_ops"
+.sub main :main
+    print "neither here\n"
+    hcf
+    print "nor there\n"
+.end
+CODE
+/neither here
+(?!nor there)/
+OUTPUT
+
+{
+    my $quine = <<'END_PASM';
+.loadlib "myops_ops"
+q
+END_PASM
+    pasm_output_is( $quine, $quine, 'a short cheating quine');
+}
+
+pir_output_is(<< 'CODE', << 'OUTPUT', "one alarm");
+.loadlib "myops_ops"
+
+.sub main :main
+    find_global P0, "_alarm"
+    alarm 2.0, P0
+    set I0, 1
+loop:
+    sleep 1
+    print I0
+    print "\n"
+    inc I0
+    # check_events
+    le I0, 3, loop
+    print "done.\n"
+.end
+
+.sub _alarm
+    print "alarm\n"
+.end
+CODE
+1
+alarm
+2
+3
+done.
+OUTPUT
+
+SKIP: {
+    skip "three alarms, infinite loop under mingw32", 1 if $is_mingw;
+
+    pir_output_is(<< 'CODE', << 'OUTPUT', "three alarm");
+
+.loadlib "myops_ops"
+.sub main :main
+    find_global P0, "_alarm3"
+    alarm 3.3, 0.4, P0
+    find_global P0, "_alarm2"
+    alarm 2.2, P0
+    find_global P0, "_alarm1"
+    alarm 1.5, 2.0, P0
+    set I0, 1
+loop:
+    sleep 1
+    print I0
+    print "\n"
+    inc I0
+    # check_events
+    le I0, 5, loop
+    print "done.\n"
+.end
+
+.sub _alarm1
+    print "alarm1\n"
+.end
+
+.sub _alarm2
+    print "alarm2\n"
+.end
+
+.sub _alarm3
+    print "alarm3\n"
+.end
+
+CODE
+1
+alarm1
+2
+alarm2
+3
+alarm3
+alarm1
+alarm3
+4
+alarm3
+alarm3
+alarm3
+5
+done.
+OUTPUT
+}
+
+# bxand boolean op
+pasm_output_is(<<'CODE', <<'OUTPUT', 'bxand - A AND B, but not BOTH');
+.loadlib "myops_ops"
+
+    bxand I0, 0, 0
+    bsr test
+    bxand I0, 0, 1
+    bsr test
+    bxand I0, 1, 0
+    bsr test
+    bxand I0, 1, 1
+    bsr test
+
+    branch end
+  test:
+    eq I0, 1, T
+    print "F\n"
+    ret
+  T:print "T\n"
+    ret
+  end:
+    end
+CODE
+F
+F
+F
+F
+OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/stm/basic.t
===================================================================
--- t/stm/basic.t	(revision 14658)
+++ t/stm/basic.t	(working copy)
@@ -356,3 +356,10 @@
 CODE
 done
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/stm/basic_mt.t
===================================================================
--- t/stm/basic_mt.t	(revision 14658)
+++ t/stm/basic_mt.t	(working copy)
@@ -271,3 +271,10 @@
 CODE
 okay
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/stm/runtime.t
===================================================================
--- t/stm/runtime.t	(revision 14658)
+++ t/stm/runtime.t	(working copy)
@@ -610,3 +610,10 @@
 OUTPUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/stm/queue.t
===================================================================
--- t/stm/queue.t	(revision 14658)
+++ t/stm/queue.t	(working copy)
@@ -480,3 +480,10 @@
 got 9
 OUTPUT
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/stm/llqueue.t
===================================================================
--- t/stm/llqueue.t	(revision 14658)
+++ t/stm/llqueue.t	(working copy)
@@ -302,3 +302,10 @@
     $P2 = $P1(_remove_tail, self)
     .return ($P2)
 .end
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/distro/manifest.t
===================================================================
--- t/distro/manifest.t	(revision 14658)
+++ t/distro/manifest.t	(working copy)
@@ -44,3 +44,10 @@
 
 # remember to change the number of tests :-)
 BEGIN { plan tests => 3; }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/distro/test_file_coverage.t
===================================================================
--- t/distro/test_file_coverage.t	(revision 14658)
+++ t/distro/test_file_coverage.t	(working copy)
@@ -99,3 +99,10 @@
             [ sort grep { $elem{$_} > 0 } keys %elem ],
            );
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/distro/manifest_skip.t
===================================================================
--- t/distro/manifest_skip.t	(revision 14658)
+++ t/distro/manifest_skip.t	(working copy)
@@ -80,3 +80,10 @@
 	     [ sort grep { $elem{$_} > 0 } keys %elem ] );
 }
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/run/exit.t
===================================================================
--- t/run/exit.t	(revision 14658)
+++ t/run/exit.t	(working copy)
@@ -65,3 +65,10 @@
 close OLDOUT or die qq|Cannot close OLDOUT: $!|;
 close OLDERR or die qq|Cannot close OLDERR: $!|;
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/doc/pod.t
===================================================================
--- t/doc/pod.t	(revision 14658)
+++ t/doc/pod.t	(working copy)
@@ -60,3 +60,10 @@
 
 plan tests => scalar @docs;
 Test::Pod::pod_file_ok( $_ ) foreach @docs;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/doc/opcode-doc.t
===================================================================
--- t/doc/opcode-doc.t	(revision 14658)
+++ t/doc/opcode-doc.t	(working copy)
@@ -89,3 +89,10 @@
 }
 
 ok(!@docerr, 'opcode documentation') or diag("Opcode documentation errors:\n@docerr");
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/native_pbc/number.t
===================================================================
--- t/native_pbc/number.t	(revision 14658)
+++ t/native_pbc/number.t	(working copy)
@@ -95,3 +95,10 @@
 # pbc_output_is(undef, <<OUTPUT, "PPC double float 32 bit BE opcode_t");
 # pbc_output_is(undef, <<OUTPUT, "little-endian 64-bit tru64");
 # pbc_output_is(undef, <<OUTPUT, "big-endian 64-bit irix");
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/native_pbc/header.t
===================================================================
--- t/native_pbc/header.t	(revision 14658)
+++ t/native_pbc/header.t	(working copy)
@@ -63,3 +63,10 @@
     ok($h{floattype} < 2, "floattype");
     is($h{padding}, pack "x8", "NULL padding");
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/native_pbc/integer.t
===================================================================
--- t/native_pbc/integer.t	(revision 14658)
+++ t/native_pbc/integer.t	(working copy)
@@ -63,3 +63,10 @@
 # pasm_output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval");
 # pasm_output_is(undef, '270544960', "little-endian 64-bit tru64");
 # pasm_output_is(undef, '270544960', "big-endian 64-bit irix");
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/native_pbc/string.t
===================================================================
--- t/native_pbc/string.t	(revision 14658)
+++ t/native_pbc/string.t	(working copy)
@@ -57,3 +57,10 @@
 pbc_output_is( undef, $output, "i386 32 bit opcode_t, 32 bit intval");
 
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/op/01-parse_ops.t
===================================================================
--- t/op/01-parse_ops.t	(revision 14658)
+++ t/op/01-parse_ops.t	(working copy)
@@ -75,4 +75,10 @@
     );
 }
 
-## vim: expandtab sw=4
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/examples/pasm.t
===================================================================
--- t/examples/pasm.t	(revision 14658)
+++ t/examples/pasm.t	(working copy)
@@ -102,3 +102,10 @@
   local $TODO = 'nanoforth2.pasm not testable yet';
   fail( 'nanoforth2.pasm' );
 };
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/examples/past.t
===================================================================
--- t/examples/past.t	(revision 14658)
+++ t/examples/past.t	(working copy)
@@ -45,3 +45,10 @@
 while ( my ( $example, $expected ) = each %expected ) {
     example_output_is( "examples/past/$example", $expected );
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/examples/subs.t
===================================================================
--- t/examples/subs.t	(revision 14658)
+++ t/examples/subs.t	(working copy)
@@ -90,3 +90,10 @@
 while ( my ( $example, $expected ) = each %expected ) {
     example_output_is( "examples/subs/$example", $expected );
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/codingstd/code_coda.t
===================================================================
--- t/codingstd/code_coda.t	(revision 14658)
+++ t/codingstd/code_coda.t	(working copy)
@@ -1,82 +1,88 @@
-#! perl
-# Copyright (C) 2006, The Perl Foundation.
-# $Id$
-
-use strict;
-use warnings;
-
-use lib qw( . lib ../lib ../../lib );
-use Test::More tests => 1;
-use Parrot::Distribution;
-
-
-=head1 NAME
-
-t/codingstd/code_coda.t - checks for editor hint coda in source
-
-=head1 SYNOPSIS
-
-    # test all files
-    % prove t/codingstd/code_coda.t
-
-    # test specific files
-    % perl t/codingstd/code_coda.t src/foo.c include/parrot/bar.h
-
-=head1 DESCRIPTION
-
-Checks that all source files have the proper editor hints coda,
-as specified in PDD07.
-
-=head1 SEE ALSO
-
-L<docs/pdds/pdd07_codingstd.pod>
-
-=cut
-
-
-my $DIST = Parrot::Distribution->new;
-my @files = @ARGV ? @ARGV : source_files();
-my @comments;
-
-foreach my $file ( @files ) {
-    my $buf;
-    my $path = $file->path;
-    open(my $fh, '<', $path)
-        or die "Cannot open '$path' for reading: $!\n";
-    {
-        local $/;
-        $buf = <$fh>;
-    }
-    push @comments => "$path\n"
-        unless $buf =~ m{\Q
-/*
- * Local variables:
- *   c-file-style: "parrot"
- * End:
- * vim: expandtab shiftwidth=4:
- */\E
- \n* \z
-    }x;
-}
-
-ok(!scalar(@comments), 'C code coda')
-    or diag("C code coda missing in ".scalar @comments." files:\n@comments");
-
-
-exit;
-
-
-sub source_files {
-    return (
-        map($_->files_of_type('C code'),   $DIST->c_source_file_directories),
-        map($_->files_of_type('C header'), $DIST->c_header_file_directories),
-    );
-}
-
-sub perl_files {
-    return (
-        map($_->files_of_type('Perl code'), $DIST->perl_file_directories),
-    );
-}
-
-## vim: expandtab sw=4
+#! perl
+# Copyright (C) 2006, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+
+use lib qw( . lib ../lib ../../lib );
+use Test::More tests => 1;
+use Parrot::Distribution;
+
+
+=head1 NAME
+
+t/codingstd/code_coda.t - checks for editor hint coda in source
+
+=head1 SYNOPSIS
+
+    # test all files
+    % prove t/codingstd/code_coda.t
+
+    # test specific files
+    % perl t/codingstd/code_coda.t src/foo.c include/parrot/bar.h
+
+=head1 DESCRIPTION
+
+Checks that all source files have the proper editor hints coda,
+as specified in PDD07.
+
+=head1 SEE ALSO
+
+L<docs/pdds/pdd07_codingstd.pod>
+
+=cut
+
+
+my $DIST = Parrot::Distribution->new;
+my @files = @ARGV ? @ARGV : source_files();
+my @comments;
+
+foreach my $file ( @files ) {
+    my $buf;
+    my $path = $file->path;
+    open(my $fh, '<', $path)
+        or die "Cannot open '$path' for reading: $!\n";
+    {
+        local $/;
+        $buf = <$fh>;
+    }
+    push @comments => "$path\n"
+        unless $buf =~ m{\Q
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */\E
+ \n* \z
+    }x;
+}
+
+ok(!scalar(@comments), 'C code coda')
+    or diag("C code coda missing in ".scalar @comments." files:\n@comments");
+
+
+exit;
+
+
+sub source_files {
+    return (
+        map($_->files_of_type('C code'),   $DIST->c_source_file_directories),
+        map($_->files_of_type('C header'), $DIST->c_header_file_directories),
+    );
+}
+
+sub perl_files {
+    return (
+        map($_->files_of_type('Perl code'), $DIST->perl_file_directories),
+    );
+}
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/codingstd/cppcomments.t
===================================================================
--- t/codingstd/cppcomments.t	(revision 14658)
+++ t/codingstd/cppcomments.t	(working copy)
@@ -73,4 +73,10 @@
 }
 
 
-## vim: expandtab sw=4
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/codingstd/fixme.t
===================================================================
--- t/codingstd/fixme.t	(revision 14658)
+++ t/codingstd/fixme.t	(working copy)
@@ -66,4 +66,10 @@
     );
 }
 
-## vim: expandtab sw=4
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/codingstd/tabs.t
===================================================================
--- t/codingstd/tabs.t	(revision 14658)
+++ t/codingstd/tabs.t	(working copy)
@@ -65,5 +65,10 @@
     );
 }
 
-## vim: expandtab sw=4
 
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/codingstd/linelength.t
===================================================================
--- t/codingstd/linelength.t	(revision 14658)
+++ t/codingstd/linelength.t	(working copy)
@@ -120,3 +120,10 @@
 docs/gettingstarted.pod
 docs/glossary.pod
 languages/LANGUAGES.STATUS.pod
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: t/codingstd/cuddled_else.t
===================================================================
--- t/codingstd/cuddled_else.t	(revision 14658)
+++ t/codingstd/cuddled_else.t	(working copy)
@@ -65,5 +65,10 @@
     );
 }
 
-## vim: expandtab sw=4
 
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/python/t/pmc/pyclass.t
===================================================================
--- languages/python/t/pmc/pyclass.t	(revision 14658)
+++ languages/python/t/pmc/pyclass.t	(working copy)
@@ -226,3 +226,10 @@
 CODE
 5 T(5)
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/python/t/pmc/pybuiltin.t
===================================================================
--- languages/python/t/pmc/pybuiltin.t	(revision 14658)
+++ languages/python/t/pmc/pybuiltin.t	(working copy)
@@ -213,3 +213,10 @@
 CODE
 cmp
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/python/t/pmc/pycomplex.t
===================================================================
--- languages/python/t/pmc/pycomplex.t	(revision 14658)
+++ languages/python/t/pmc/pycomplex.t	(working copy)
@@ -110,3 +110,10 @@
 PyFloat
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/python/t/pmc/pyint.t
===================================================================
--- languages/python/t/pmc/pyint.t	(revision 14658)
+++ languages/python/t/pmc/pyint.t	(working copy)
@@ -659,3 +659,10 @@
 PyLong/
 OUTPUT
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/python/t/pmc/pyfunc.t
===================================================================
--- languages/python/t/pmc/pyfunc.t	(revision 14658)
+++ languages/python/t/pmc/pyfunc.t	(working copy)
@@ -157,3 +157,10 @@
 uno two three
 one two three
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/jako/t/examples.t
===================================================================
--- languages/jako/t/examples.t	(revision 14658)
+++ languages/jako/t/examples.t	(working copy)
@@ -166,3 +166,10 @@
     fail( 'mops.pir' );
     fail( 'nci.pir' );
 };
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/HQ9plus/t/basic.t
===================================================================
--- languages/HQ9plus/t/basic.t	(revision 14658)
+++ languages/HQ9plus/t/basic.t	(working copy)
@@ -537,3 +537,10 @@
 
 $code = 'QQQQ';
 language_output_is( 'HQ9plus', $code, $code x length($code), "code: $code" );
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/bit.t
===================================================================
--- languages/pugs/t/pmc/bit.t	(revision 14658)
+++ languages/pugs/t/pmc/bit.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/num.t
===================================================================
--- languages/pugs/t/pmc/num.t	(revision 14658)
+++ languages/pugs/t/pmc/num.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/undef.t
===================================================================
--- languages/pugs/t/pmc/undef.t	(revision 14658)
+++ languages/pugs/t/pmc/undef.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/module.t
===================================================================
--- languages/pugs/t/pmc/module.t	(revision 14658)
+++ languages/pugs/t/pmc/module.t	(working copy)
@@ -5,3 +5,10 @@
 BEGIN { print "1..0 # Skip module creation currently segfaults\n"; exit; }
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/any.t
===================================================================
--- languages/pugs/t/pmc/any.t	(revision 14658)
+++ languages/pugs/t/pmc/any.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/str.t
===================================================================
--- languages/pugs/t/pmc/str.t	(revision 14658)
+++ languages/pugs/t/pmc/str.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/tuple.t
===================================================================
--- languages/pugs/t/pmc/tuple.t	(revision 14658)
+++ languages/pugs/t/pmc/tuple.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/int.t
===================================================================
--- languages/pugs/t/pmc/int.t	(revision 14658)
+++ languages/pugs/t/pmc/int.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/code.t
===================================================================
--- languages/pugs/t/pmc/code.t	(revision 14658)
+++ languages/pugs/t/pmc/code.t	(working copy)
@@ -28,3 +28,10 @@
 PugsCode
 ok
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/bool.t
===================================================================
--- languages/pugs/t/pmc/bool.t	(revision 14658)
+++ languages/pugs/t/pmc/bool.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/pugs/t/pmc/mapping.t
===================================================================
--- languages/pugs/t/pmc/mapping.t	(revision 14658)
+++ languages/pugs/t/pmc/mapping.t	(working copy)
@@ -3,3 +3,10 @@
 # $Id$
 
 use t::pmc;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/expr.t
===================================================================
--- languages/lua/t/expr.t	(revision 14658)
+++ languages/lua/t/expr.t	(working copy)
@@ -166,3 +166,10 @@
 37
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/boolean.t
===================================================================
--- languages/lua/t/boolean.t	(revision 14658)
+++ languages/lua/t/boolean.t	(working copy)
@@ -167,3 +167,10 @@
 /attempt to index/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/repeat.t
===================================================================
--- languages/lua/t/repeat.t	(revision 14658)
+++ languages/lua/t/repeat.t	(working copy)
@@ -51,3 +51,10 @@
 stop
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/nil.t
===================================================================
--- languages/lua/t/nil.t	(revision 14658)
+++ languages/lua/t/nil.t	(working copy)
@@ -167,3 +167,10 @@
 /attempt to index/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/lexico.t
===================================================================
--- languages/lua/t/lexico.t	(revision 14658)
+++ languages/lua/t/lexico.t	(working copy)
@@ -68,3 +68,10 @@
 86
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/assign.t
===================================================================
--- languages/lua/t/assign.t	(revision 14658)
+++ languages/lua/t/assign.t	(working copy)
@@ -109,3 +109,10 @@
 4
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/table.t
===================================================================
--- languages/lua/t/table.t	(revision 14658)
+++ languages/lua/t/table.t	(working copy)
@@ -166,3 +166,10 @@
 /'setn' is obsolete/
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/iterator.t
===================================================================
--- languages/lua/t/iterator.t	(revision 14658)
+++ languages/lua/t/iterator.t	(working copy)
@@ -47,3 +47,10 @@
 30
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/if.t
===================================================================
--- languages/lua/t/if.t	(revision 14658)
+++ languages/lua/t/if.t	(working copy)
@@ -79,3 +79,10 @@
 21
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/object.t
===================================================================
--- languages/lua/t/object.t	(revision 14658)
+++ languages/lua/t/object.t	(working copy)
@@ -274,3 +274,10 @@
 10
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/fornum.t
===================================================================
--- languages/lua/t/fornum.t	(revision 14658)
+++ languages/lua/t/fornum.t	(working copy)
@@ -129,3 +129,10 @@
 /for' limit must be a number/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/string.t
===================================================================
--- languages/lua/t/string.t	(revision 14658)
+++ languages/lua/t/string.t	(working copy)
@@ -115,3 +115,10 @@
 TEST
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/io.t
===================================================================
--- languages/lua/t/io.t	(revision 14658)
+++ languages/lua/t/io.t	(working copy)
@@ -258,3 +258,10 @@
 true
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/functions.t
===================================================================
--- languages/lua/t/functions.t	(revision 14658)
+++ languages/lua/t/functions.t	(working copy)
@@ -194,3 +194,10 @@
 /attempt to index/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/scope.t
===================================================================
--- languages/lua/t/scope.t	(revision 14658)
+++ languages/lua/t/scope.t	(working copy)
@@ -104,3 +104,10 @@
 #CODE
 #OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/boolean.t
===================================================================
--- languages/lua/t/pmc/boolean.t	(revision 14658)
+++ languages/lua/t/pmc/boolean.t	(working copy)
@@ -204,3 +204,10 @@
 nil
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/nil.t
===================================================================
--- languages/lua/t/pmc/nil.t	(revision 14658)
+++ languages/lua/t/pmc/nil.t	(working copy)
@@ -207,3 +207,10 @@
 nil
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/function.t
===================================================================
--- languages/lua/t/pmc/function.t	(revision 14658)
+++ languages/lua/t/pmc/function.t	(working copy)
@@ -238,3 +238,10 @@
 /function: [0-9A-Fa-f]{8}/
 OUTPUT
 }
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/string.t
===================================================================
--- languages/lua/t/pmc/string.t	(revision 14658)
+++ languages/lua/t/pmc/string.t	(working copy)
@@ -284,3 +284,10 @@
 number
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/table.t
===================================================================
--- languages/lua/t/pmc/table.t	(revision 14658)
+++ languages/lua/t/pmc/table.t	(working copy)
@@ -285,3 +285,10 @@
 nil
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/thread.t
===================================================================
--- languages/lua/t/pmc/thread.t	(revision 14658)
+++ languages/lua/t/pmc/thread.t	(working copy)
@@ -186,3 +186,10 @@
 nil
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/userdata.t
===================================================================
--- languages/lua/t/pmc/userdata.t	(revision 14658)
+++ languages/lua/t/pmc/userdata.t	(working copy)
@@ -194,3 +194,10 @@
 nil
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/pmc/number.t
===================================================================
--- languages/lua/t/pmc/number.t	(revision 14658)
+++ languages/lua/t/pmc/number.t	(working copy)
@@ -251,3 +251,10 @@
 number
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/examples.t
===================================================================
--- languages/lua/t/examples.t	(revision 14658)
+++ languages/lua/t/examples.t	(working copy)
@@ -69,3 +69,10 @@
 5040
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/basic.t
===================================================================
--- languages/lua/t/basic.t	(revision 14658)
+++ languages/lua/t/basic.t	(working copy)
@@ -334,3 +334,10 @@
 false
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/os.t
===================================================================
--- languages/lua/t/os.t	(revision 14658)
+++ languages/lua/t/os.t	(working copy)
@@ -115,3 +115,10 @@
 /\d+/
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/forlist.t
===================================================================
--- languages/lua/t/forlist.t	(revision 14658)
+++ languages/lua/t/forlist.t	(working copy)
@@ -61,3 +61,10 @@
 2	Monday
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/function.t
===================================================================
--- languages/lua/t/function.t	(revision 14658)
+++ languages/lua/t/function.t	(working copy)
@@ -202,3 +202,10 @@
 /no loop to break/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/constructor.t
===================================================================
--- languages/lua/t/constructor.t	(revision 14658)
+++ languages/lua/t/constructor.t	(working copy)
@@ -95,3 +95,10 @@
 c	10
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/debug.t
===================================================================
--- languages/lua/t/debug.t	(revision 14658)
+++ languages/lua/t/debug.t	(working copy)
@@ -44,3 +44,10 @@
 ok
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/number.t
===================================================================
--- languages/lua/t/number.t	(revision 14658)
+++ languages/lua/t/number.t	(working copy)
@@ -345,3 +345,10 @@
 /attempt to index/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/math.t
===================================================================
--- languages/lua/t/math.t	(revision 14658)
+++ languages/lua/t/math.t	(working copy)
@@ -245,3 +245,10 @@
 1
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/strings.t
===================================================================
--- languages/lua/t/strings.t	(revision 14658)
+++ languages/lua/t/strings.t	(working copy)
@@ -329,3 +329,10 @@
 /attempt to index/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/metatable.t
===================================================================
--- languages/lua/t/metatable.t	(revision 14658)
+++ languages/lua/t/metatable.t	(working copy)
@@ -784,3 +784,10 @@
 1
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/coroutine.t
===================================================================
--- languages/lua/t/coroutine.t	(revision 14658)
+++ languages/lua/t/coroutine.t	(working copy)
@@ -174,3 +174,10 @@
 OUT
 }
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/while.t
===================================================================
--- languages/lua/t/while.t	(revision 14658)
+++ languages/lua/t/while.t	(working copy)
@@ -74,3 +74,10 @@
 6
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/userdata.t
===================================================================
--- languages/lua/t/userdata.t	(revision 14658)
+++ languages/lua/t/userdata.t	(working copy)
@@ -194,3 +194,10 @@
 /attempt to index/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/tables.t
===================================================================
--- languages/lua/t/tables.t	(revision 14658)
+++ languages/lua/t/tables.t	(working copy)
@@ -142,3 +142,10 @@
 a,B,C
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/lua/t/closure.t
===================================================================
--- languages/lua/t/closure.t	(revision 14658)
+++ languages/lua/t/closure.t	(working copy)
@@ -105,3 +105,10 @@
 function	12
 6	15	3
 OUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/pmc/integer.t
===================================================================
--- languages/WMLScript/t/pmc/integer.t	(revision 14658)
+++ languages/WMLScript/t/pmc/integer.t	(working copy)
@@ -230,3 +230,10 @@
 WmlsBoolean
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/pmc/boolean.t
===================================================================
--- languages/WMLScript/t/pmc/boolean.t	(revision 14658)
+++ languages/WMLScript/t/pmc/boolean.t	(working copy)
@@ -214,3 +214,10 @@
 true
 WmlsBoolean
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/pmc/float.t
===================================================================
--- languages/WMLScript/t/pmc/float.t	(revision 14658)
+++ languages/WMLScript/t/pmc/float.t	(working copy)
@@ -230,3 +230,10 @@
 WmlsBoolean
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/pmc/string.t
===================================================================
--- languages/WMLScript/t/pmc/string.t	(revision 14658)
+++ languages/WMLScript/t/pmc/string.t	(working copy)
@@ -266,3 +266,10 @@
 WmlsBoolean
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/pmc/invalid.t
===================================================================
--- languages/WMLScript/t/pmc/invalid.t	(revision 14658)
+++ languages/WMLScript/t/pmc/invalid.t	(working copy)
@@ -197,3 +197,10 @@
 false
 WmlsBoolean
 OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/expr.t
===================================================================
--- languages/WMLScript/t/expr.t	(revision 14658)
+++ languages/WMLScript/t/expr.t	(working copy)
@@ -50,3 +50,10 @@
 11
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/examples.t
===================================================================
--- languages/WMLScript/t/examples.t	(revision 14658)
+++ languages/WMLScript/t/examples.t	(working copy)
@@ -105,3 +105,10 @@
 10 primes.
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/boolean.t
===================================================================
--- languages/WMLScript/t/boolean.t	(revision 14658)
+++ languages/WMLScript/t/boolean.t	(working copy)
@@ -487,3 +487,10 @@
 
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/literals.t
===================================================================
--- languages/WMLScript/t/literals.t	(revision 14658)
+++ languages/WMLScript/t/literals.t	(working copy)
@@ -166,3 +166,10 @@
 4
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/lang.t
===================================================================
--- languages/WMLScript/t/lang.t	(revision 14658)
+++ languages/WMLScript/t/lang.t	(working copy)
@@ -498,3 +498,10 @@
 0
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/runtime.t
===================================================================
--- languages/WMLScript/t/runtime.t	(revision 14658)
+++ languages/WMLScript/t/runtime.t	(working copy)
@@ -85,3 +85,10 @@
 Hello World!
 OUTPUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/invalid.t
===================================================================
--- languages/WMLScript/t/invalid.t	(revision 14658)
+++ languages/WMLScript/t/invalid.t	(working copy)
@@ -253,3 +253,10 @@
 4
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/statements.t
===================================================================
--- languages/WMLScript/t/statements.t	(revision 14658)
+++ languages/WMLScript/t/statements.t	(working copy)
@@ -79,3 +79,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/pragmas.t
===================================================================
--- languages/WMLScript/t/pragmas.t	(revision 14658)
+++ languages/WMLScript/t/pragmas.t	(working copy)
@@ -80,3 +80,10 @@
 /external function '\w+' not found/
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/libfloat.t
===================================================================
--- languages/WMLScript/t/libfloat.t	(revision 14658)
+++ languages/WMLScript/t/libfloat.t	(working copy)
@@ -172,3 +172,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/integer.t
===================================================================
--- languages/WMLScript/t/integer.t	(revision 14658)
+++ languages/WMLScript/t/integer.t	(working copy)
@@ -530,3 +530,10 @@
 4
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/libstring.t
===================================================================
--- languages/WMLScript/t/libstring.t	(revision 14658)
+++ languages/WMLScript/t/libstring.t	(working copy)
@@ -474,3 +474,10 @@
 2
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/float.t
===================================================================
--- languages/WMLScript/t/float.t	(revision 14658)
+++ languages/WMLScript/t/float.t	(working copy)
@@ -483,3 +483,10 @@
 4
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/string.t
===================================================================
--- languages/WMLScript/t/string.t	(revision 14658)
+++ languages/WMLScript/t/string.t	(working copy)
@@ -572,3 +572,10 @@
 4
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/functions.t
===================================================================
--- languages/WMLScript/t/functions.t	(revision 14658)
+++ languages/WMLScript/t/functions.t	(working copy)
@@ -165,3 +165,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/WMLScript/t/logical.t
===================================================================
--- languages/WMLScript/t/logical.t	(revision 14658)
+++ languages/WMLScript/t/logical.t	(working copy)
@@ -243,3 +243,10 @@
 OUT
 
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/ook/t/basic.t
===================================================================
--- languages/ook/t/basic.t	(revision 14658)
+++ languages/ook/t/basic.t	(working copy)
@@ -51,3 +51,10 @@
 Hello World!
 OUT
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/arith/logic.t
===================================================================
--- languages/scheme/t/arith/logic.t	(revision 14658)
+++ languages/scheme/t/arith/logic.t	(working copy)
@@ -225,3 +225,10 @@
 ###
 ### GEQ (>=)
 ###
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/arith/basic.t
===================================================================
--- languages/scheme/t/arith/basic.t	(revision 14658)
+++ languages/scheme/t/arith/basic.t	(working copy)
@@ -113,3 +113,10 @@
 output_is(<<'CODE', 7, 'abs -7');
 (write (abs -7))
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/arith/nested.t
===================================================================
--- languages/scheme/t/arith/nested.t	(revision 14658)
+++ languages/scheme/t/arith/nested.t	(working copy)
@@ -57,3 +57,10 @@
 output_is(<<'CODE', 2, 'abs (- 3 5)');
 (write (abs (- 3 5)))
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/io/basic.t
===================================================================
--- languages/scheme/t/io/basic.t	(revision 14658)
+++ languages/scheme/t/io/basic.t	(working copy)
@@ -13,3 +13,10 @@
 output_is(<<'CODE', '01', "basic write");
 (write 0 1)
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/logic/defines.t
===================================================================
--- languages/scheme/t/logic/defines.t	(revision 14658)
+++ languages/scheme/t/logic/defines.t	(working copy)
@@ -103,3 +103,10 @@
       (* n (fak (- n 1)))))
 (write (fak 5))
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/logic/lists.t
===================================================================
--- languages/scheme/t/logic/lists.t	(revision 14658)
+++ languages/scheme/t/logic/lists.t	(working copy)
@@ -136,3 +136,10 @@
 (write
   `(list ,@(list 1 2) ,(+ 1 2) ,(list 4 5)))
 CODE
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/scheme/t/logic/basic.t
===================================================================
--- languages/scheme/t/logic/basic.t	(revision 14658)
+++ languages/scheme/t/logic/basic.t	(working copy)
@@ -47,3 +47,10 @@
 (write (or 0 0))
 CODE
 
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Index: languages/befunge/t/basic.t
===================================================================
--- languages/befunge/t/basic.t	(revision 14658)
+++ languages/befunge/t/basic.t	(working copy)
@@ -30,3 +30,10 @@
 
 # clean up
 unlink( $out_f );
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
