stdouttoggler 1.0.0 → 1.0.1

data/stdouttoggler.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
 	s.name="stdouttoggler"
-	s.version="1.0.0"
+	s.version="1.0.1"
 	s.platform=Gem::Platform::RUBY
 	s.date="2012-09-14"
 	s.summary="Comments and uncomments output lines in code"

data/test/test_file_writer.rb

@@ -239,6 +239,61 @@ EOS
 		
 	end #end ruby test
 
-	
-	
-end
+
+#####################################
+	def test_perl
+
+	@perl_file_uncommented = <<EOS
+#!/bin/perl
+#do not change
+
+	print "starting";
+
+print "slice\n";
+
+open(F,"<","JavaFile.java") or die "file: $!";
+while(<F>) {
+  print "line";
+}
+close F;
+
+print "\n\n";
+EOS
+
+@perl_file_commented = <<EOS
+#!/bin/perl
+#do not change
+
+	#print "starting";
+
+#print "slice\n";
+
+open(F,"<","JavaFile.java") or die "file: $!";
+while(<F>) {
+  #print "line";
+}
+close F;
+
+#print "\n\n";
+EOS
+
+		#this is the perl type map
+		StdOutToggler::StdOutRegex::Producer.create_methods_for_producing_stdout_regex_strings(@stdout_type_maps[4])
+
+		#comment
+		perl_comment_regex_holder = StdOutToggler::StdOutRegex::Producer.new().perl_comment_regex
+		input = StringIO.new(@perl_file_uncommented)
+		output = StringIO.new
+		StdOutToggler::FileWriter.modify_file(input, output, perl_comment_regex_holder)
+		assert_equal(@perl_file_commented, output.string)
+
+		#uncomment
+		perl_uncomment_regex_holder = StdOutToggler::StdOutRegex::Producer.new().perl_uncomment_regex
+		input = StringIO.new(@perl_file_commented)
+		output = StringIO.new
+		StdOutToggler::FileWriter.modify_file(input, output, perl_uncomment_regex_holder)
+		assert_equal(@perl_file_uncommented, output.string)
+		
+	end #end perl test
+
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: stdouttoggler
 version: !ruby/object:Gem::Version
-  version: 1.0.0
+  version: 1.0.1
   prerelease: 
 platform: ruby
 authors: