[svn:parrot] r49669 - trunk/t/pmc

mikehh at svn.parrot.org mikehh at svn.parrot.org
Mon Oct 25 08:32:12 UTC 2010


Author: mikehh
Date: Mon Oct 25 08:32:11 2010
New Revision: 49669
URL: https://trac.parrot.org/parrot/changeset/49669

Log:
remove hard tabs

Modified:
   trunk/t/pmc/io_stdin.t

Modified: trunk/t/pmc/io_stdin.t
==============================================================================
--- trunk/t/pmc/io_stdin.t	Mon Oct 25 08:10:33 2010	(r49668)
+++ trunk/t/pmc/io_stdin.t	Mon Oct 25 08:32:11 2010	(r49669)
@@ -30,13 +30,13 @@
     my ($input_string, $code, $expected_output, $test_name) = @_;
 
     my $stuff = sub {
-	# Put the string on a file.
-	my $string = shift;
+        # Put the string on a file.
+        my $string = shift;
 
-	my (undef, $file) = create_tempfile(UNLINK => 1);
-	open(my $out, ">$file") or die "bug";
-	print $out $string;
-	return $file;
+        my (undef, $file) = create_tempfile(UNLINK => 1);
+        open(my $out, ">$file") or die "bug";
+        print $out $string;
+        return $file;
     };
 
     # Write the input and code strings.
@@ -45,10 +45,10 @@
 
     # Slurp and compare the output.
     my $result = do {
-	local $/;
-	open(my $in, "./parrot '$code_file' < '$input_file' |")
-	    or die "bug";
-	<$in>;
+        local $/;
+        open(my $in, "./parrot '$code_file' < '$input_file' |")
+            or die "bug";
+        <$in>;
     };
     Test::More::is($result, $expected_output, $test_name);
 }
@@ -57,25 +57,25 @@
 foo
 INPUT
 .sub test :main
-	.local pmc stdin
-	stdin = getstdin
-	read_str(stdin, 1)
-	read_str(stdin, 2)
-	read_str(stdin, 5)
-	read_str(stdin, 5)
+    .local pmc stdin
+    stdin = getstdin
+    read_str(stdin, 1)
+    read_str(stdin, 2)
+    read_str(stdin, 5)
+    read_str(stdin, 5)
 .end
 .sub read_str
-	.param pmc stream
-	.param int n_chars
-	.local string input_string
-	.local int len
-	input_string = stream.'read'(n_chars)
-	len = length input_string
-	print "got len "
-	print len
-	print ':  "'
-	print input_string
-	print "\"\n"
+    .param pmc stream
+    .param int n_chars
+    .local string input_string
+    .local int len
+    input_string = stream.'read'(n_chars)
+    len = length input_string
+    print "got len "
+    print len
+    print ':  "'
+    print input_string
+    print "\"\n"
 .end
 CODE
 got len 1:  "f"
@@ -91,24 +91,24 @@
 three
 INPUT
 .sub test :main
-	.local pmc stdin
-	stdin = getstdin
-	read_str(stdin)
-	read_str(stdin)
-	read_str(stdin)
-	read_str(stdin)
+    .local pmc stdin
+    stdin = getstdin
+    read_str(stdin)
+    read_str(stdin)
+    read_str(stdin)
+    read_str(stdin)
 .end
 .sub read_str
-	.param pmc stream
-	.local string input_string
-	.local int len
-	input_string = stream.'readline'()
-	len = length input_string
-	print "got len "
-	print len
-	print ':  "'
-	print input_string
-	print "\"\n"
+    .param pmc stream
+    .local string input_string
+    .local int len
+    input_string = stream.'readline'()
+    len = length input_string
+    print "got len "
+    print len
+    print ':  "'
+    print input_string
+    print "\"\n"
 .end
 CODE
 got len 4:  "one
@@ -126,22 +126,22 @@
 three
 INPUT
 .sub test :main
-	.local pmc stdin
-	stdin = getstdin
-	read_str(stdin)
-	read_str(stdin)
+    .local pmc stdin
+    stdin = getstdin
+    read_str(stdin)
+    read_str(stdin)
 .end
 .sub read_str
-	.param pmc stream
-	.local string input_string
-	.local int len
-	input_string = stream.'readall'()
-	len = length input_string
-	print "got len "
-	print len
-	print ':  "'
-	print input_string
-	print "\"\n"
+    .param pmc stream
+    .local string input_string
+    .local int len
+    input_string = stream.'readall'()
+    len = length input_string
+    print "got len "
+    print len
+    print ':  "'
+    print input_string
+    print "\"\n"
 .end
 CODE
 got len 14:  "one


More information about the parrot-commits mailing list