diff --git a/test/fixtures/haskell/corpus/literals.A.hs b/test/fixtures/haskell/corpus/literals.A.hs new file mode 100644 index 000000000..210598ae6 --- /dev/null +++ b/test/fixtures/haskell/corpus/literals.A.hs @@ -0,0 +1,37 @@ +module A where +a = 0 +a = 1 + +a = 0o00 +a = 0O77 + +a = 0x00 +a = 0XFF + +a = 0.00 +a = 0.99 + +a = 0.00e01 +a = 0.99E01 +a = 0.00e+01 +a = 0.99E-01 +a = 0.00e-01 +a = 0.99E+01 + +a = 00e01 +a = 99E01 +a = 00e+01 +a = 99E-01 +a = 00e-01 +a = 99E+01 + +a = undefined +_a0 = undefined +_A0 = undefined +a0 = undefined +a9 = undefined +aA = undefined +aZ' = undefined + +a = True +a = False diff --git a/test/fixtures/haskell/corpus/literals.B.hs b/test/fixtures/haskell/corpus/literals.B.hs new file mode 100644 index 000000000..d41b1b37a --- /dev/null +++ b/test/fixtures/haskell/corpus/literals.B.hs @@ -0,0 +1,37 @@ +module A where +b = 0 +b = 1 + +b = 0o00 +b = 0O77 + +b = 0x00 +b = 0XFF + +b = 0.00 +b = 0.99 + +b = 0.00e01 +b = 0.99E01 +b = 0.00e+01 +b = 0.99E-01 +b = 0.00e-01 +b = 0.99E+01 + +b = 00e01 +b = 99E01 +b = 00e+01 +b = 99E-01 +b = 00e-01 +b = 99E+01 + +b = undefined +ba0 = undefined +bA0 = undefined +b0 = undefined +b9 = undefined +bA = undefined +bZ' = undefined + +b = True +b = False diff --git a/test/fixtures/haskell/corpus/literals.diffA-B.txt b/test/fixtures/haskell/corpus/literals.diffA-B.txt new file mode 100644 index 000000000..a7e1f8237 --- /dev/null +++ b/test/fixtures/haskell/corpus/literals.diffA-B.txt @@ -0,0 +1,232 @@ +(Module + (Identifier) + ( + (Function + { (Identifier) + ->(Identifier) } + ( + (Integer))) + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-})) diff --git a/test/fixtures/haskell/corpus/literals.diffB-A.txt b/test/fixtures/haskell/corpus/literals.diffB-A.txt new file mode 100644 index 000000000..34000a913 --- /dev/null +++ b/test/fixtures/haskell/corpus/literals.diffB-A.txt @@ -0,0 +1,230 @@ +(Module + (Identifier) + ( + (Function + { (Identifier) + ->(Identifier) } + ( + (Integer))) + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Integer)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Float)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + (Function + { (Identifier) + ->(Identifier) } + ( + {+(Identifier)+} + {-(Integer)-})) + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {+(Function + {+(Identifier)+} + {+( + {+(Identifier)+})+})+} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Integer)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Float)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-} + {-(Function + {-(Identifier)-} + {-( + {-(Identifier)-})-})-})) diff --git a/test/fixtures/haskell/corpus/literals.parseA.txt b/test/fixtures/haskell/corpus/literals.parseA.txt new file mode 100644 index 000000000..40982fe4b --- /dev/null +++ b/test/fixtures/haskell/corpus/literals.parseA.txt @@ -0,0 +1,119 @@ +(Module + (Identifier) + ( + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))))) diff --git a/test/fixtures/haskell/corpus/literals.parseB.txt b/test/fixtures/haskell/corpus/literals.parseB.txt new file mode 100644 index 000000000..40982fe4b --- /dev/null +++ b/test/fixtures/haskell/corpus/literals.parseB.txt @@ -0,0 +1,119 @@ +(Module + (Identifier) + ( + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Integer))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Float))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier))) + (Function + (Identifier) + ( + (Identifier)))))