]> thyrsus.com Git - intercal.git/commitdiff
Added a regressioon test using Don Knuth's tpk program.
authorEric S. Raymond <esr@thyrsus.com>
Fri, 27 Aug 2010 00:39:55 +0000 (20:39 -0400)
committerEric S. Raymond <esr@thyrsus.com>
Fri, 27 Aug 2010 00:39:55 +0000 (20:39 -0400)
.gitignore
pit/CATALOG
pit/Makefile
pit/tpk.chk [new file with mode: 0644]
pit/tpk.tst [new file with mode: 0644]

index b6fdd484f75c5bbf07f2a088253cc56a094737a5..2b3e8dd5b070b811f650a4bf41a0de59a853757f 100644 (file)
@@ -64,6 +64,7 @@ pit/rot13
 pit/rot13b
 pit/sample
 pit/sort
+pit/tpk
 pit/tests/hello
 pit/tests/iogerunds
 pit/tests/permute
index 8bd742f3e400fcce19a5a814d2de373be6166afa..eea65649b122ec8edbb04600f080cea86b6f46d6 100644 (file)
@@ -94,7 +94,7 @@ By Brian Raiter <breadbox@muppetlabs.com>
   fft.doc           + Description of fft.i
 
 by Donald Knuth
-  tpk.i             Don Knuth's implementation of the TPK algorithm
+  tpk.i             + Don Knuth's implementation of the TPK algorithm
   tpk.doc           Don's note about the algorithm
 
 by Oerjan Johansen
index 73d9981106a7f633429df6d939f0c391f5d45685..35f72ed3f96659732c235a89b62a5b86a740b672 100644 (file)
@@ -97,6 +97,7 @@ test: $(TARGETS)
        @echo "FIVE" | ./pi | ./regresscheck pi
        @cp quine.i quine.chk; ./quine | ./regresscheck quine; rm quine.chk 
        @cat sort.tst | ./sort | ./regresscheck sort
+       @cat tpk.tst | ./tpk | ./regresscheck tpk
        @./tests/count | ./regresscheck tests/count 
        @./tests/hello | ./regresscheck tests/hello 
        @./tests/permute | ./regresscheck tests/permute 
diff --git a/pit/tpk.chk b/pit/tpk.chk
new file mode 100644 (file)
index 0000000..bbb54d5
--- /dev/null
@@ -0,0 +1,44 @@
+ 
+X
+      
+cmxcix
+  
+IX
+       ______          
+cccxcixCMXCIXDCCCXCVIII
+    
+VIII
+      
+cmxcix
+   
+VII
+_
+
+  
+VI
+______     
+MMMCXLMDXCI
+ 
+V
+    ____               
+clviDCCCMMMDCCCLXXXVIII
+  
+IV
+    ____        
+clviDCCCMMMDCCXL
+   
+III
+      
+cmxcix
+  
+II
+     __
+cccxxMM
+ 
+I
+____   
+CXXVXIX
+_
+
+ 
+M
diff --git a/pit/tpk.tst b/pit/tpk.tst
new file mode 100644 (file)
index 0000000..879dda4
--- /dev/null
@@ -0,0 +1,16 @@
+ONE
+ONE FIVE SIX TWO FIVE
+FOUR OH OH OH OH OH OH
+FIVE OH OH OH OH OH OH
+THREE ONE FOUR ONE FIVE NINER TWO
+THREE ONE FOUR ONE FIVE NINER THREE
+SEVEN SIX EIGHT OH THREE THREE
+ZERO
+FOUR TWO NINE FOUR NINE SIX SEVEN TWO NINE FIVE
+FOUR THREE OH ONE FOUR OH NINE
+FOUR THREE OH ONE FOUR ONE OH
+
+
+
+
+