[Pkg-haskell-commits] darcs: haskell-language-javascript: And make it work by some patching

[Joachim Breitner]

Sat Oct 20 16:01:08 UTC 2012  Joachim Breitner <mail at joachim-breitner.de>
  * And make it work by some patching
  Ignore-this: 801cee056a4bce5f66810afbe137448e

    M ./changelog +1
    A ./patches/fix-testsuite
    M ./patches/series +1

Sat Oct 20 16:01:08 UTC 2012  Joachim Breitner <mail at joachim-breitner.de>
  * And make it work by some patching
  Ignore-this: 801cee056a4bce5f66810afbe137448e
diff -rN -u old-haskell-language-javascript//changelog new-haskell-language-javascript//changelog
--- old-haskell-language-javascript//changelog	2012-10-20 16:04:41.406719501 +0000
+++ new-haskell-language-javascript//changelog	2012-10-20 16:04:41.423229309 +0000
@@ -6,6 +6,7 @@
   * New upstream release
     + Remove patch no-utf8-happy-file 
   * Enable test suite
+    + And make it work by some patching
 
  -- Joachim Breitner <nomeata at debian.org>  Fri, 19 Oct 2012 22:59:42 +0200
 
diff -rN -u old-haskell-language-javascript//patches/fix-testsuite new-haskell-language-javascript//patches/fix-testsuite
--- old-haskell-language-javascript//patches/fix-testsuite	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-language-javascript//patches/fix-testsuite	2012-10-20 16:04:41.419225764 +0000
@@ -0,0 +1,28 @@
+Description: Fix testsuite
+
+Author: Joachim Breitner <nomeata at debian.org>
+Bug: https://github.com/alanz/language-javascript/issues/20
+Bug: https://github.com/alanz/language-javascript/issues/21
+Forwarded: https://github.com/alanz/language-javascript/pull/20
+
+--- haskell-language-javascript-0.5.6.orig/language-javascript.cabal
++++ haskell-language-javascript-0.5.6/language-javascript.cabal
+@@ -72,7 +72,6 @@ Test-Suite test-language-javascript
+                  , blaze-builder    >= 0.2     && < 1
+                  -- need our own library for tests
+                  , language-javascript >= 0.5.5
+-  hs-source-dirs: . src ./dist/build
+ 
+ 
+ source-repository head
+--- haskell-language-javascript-0.5.6.orig/runtests.hs
++++ haskell-language-javascript-0.5.6/runtests.hs
+@@ -294,7 +294,7 @@ testSuite = testGroup "Parser"
+ 
+    , testCase "unicode4" (testProg "x=\"àáâãäå\";y='\3012a\0068'" "Right (JSSourceElementsTop [JSExpression [JSIdentifier \"x\",JSOperator JSLiteral \"=\",JSStringLiteral '\"' \"\\224\\225\\226\\227\\228\\229\"],JSLiteral \";\",JSExpression [JSIdentifier \"y\",JSOperator JSLiteral \"=\",JSStringLiteral '\\'' \"\\3012aD\"],JSLiteral \"\"])")
+ 
+-   , testCase "unicode5f" (testFile "./test/Unicode.js" "JSSourceElementsTop [JSExpression [JSIdentifier \"\\224\\225\\226\\227\\228\\229\",JSOperator JSLiteral \"=\",JSDecimal \"1\"],JSLiteral \";\",JSLiteral \"\"]")
++--   , testCase "unicode5f" (testFile "./test/Unicode.js" "JSSourceElementsTop [JSExpression [JSIdentifier \"\\224\\225\\226\\227\\228\\229\",JSOperator JSLiteral \"=\",JSDecimal \"1\"],JSLiteral \";\",JSLiteral \"\"]")
+ 
+    , testCase "bug2.a" (testProg "function() {\nz = function /*z*/(o) {\nreturn r;\n};}" "Right (JSSourceElementsTop [JSExpression [JSFunctionExpression [] [] (JSBlock ([JSExpression [JSIdentifier \"z\",JSOperator JSLiteral \"=\",JSFunctionExpression [] [JSIdentifier \"o\"] (JSBlock ([JSReturn [JSExpression [JSIdentifier \"r\"]] JSLiteral \";\"]))],JSLiteral \";\"]))],JSLiteral \"\"])")
+ 
diff -rN -u old-haskell-language-javascript//patches/series new-haskell-language-javascript//patches/series
--- old-haskell-language-javascript//patches/series	2012-10-20 16:04:41.402720207 +0000
+++ new-haskell-language-javascript//patches/series	2012-10-20 16:04:41.419225764 +0000
@@ -1 +1,2 @@
 add-BangPatterns.diff
+fix-testsuite