Version bump. Added tests support.

(Portage version: 2.1.10.7/cvs/Linux x86_64)

1 files changed, 72 insertions, 0 deletions

diff --git a/dev-haskell/alex/files/alex-2.3.5-missing-test.patch b/dev-haskell/alex/files/alex-2.3.5-missing-test.patch
new file mode 100644
index 000000000000..3c80b88a2096
--- /dev/null
+++ b/dev-haskell/alex/files/alex-2.3.5-missing-test.patch
@@ -0,0 +1,72 @@
+commit 883587ca4feecab72381991533b2f686a57a4d57
+Author: Sergei Trofimovich <slyfox@gentoo.org>
+Date:   Mon Jul 25 08:20:13 2011 +0300
+
+    added missing tokens_bytestring test
+    
+    Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
+
+diff --git a/alex.cabal b/alex.cabal
+index b262af7..c6f6e22 100644
+--- a/alex.cabal
++++ b/alex.cabal
+@@ -57,6 +57,7 @@ extra-source-files:
+ 	tests/tokens.x
+ 	tests/tokens_gscan.x
+ 	tests/tokens_posn.x
++	tests/tokens_bytestring.x
+ 
+ flag small_base
+   description: Choose the new smaller, split-up base package.
+diff --git a/tests/tokens_bytestring.x b/tests/tokens_bytestring.x
+new file mode 100644
+index 0000000..0cb23c8
+--- /dev/null
++++ b/tests/tokens_bytestring.x
+@@ -0,0 +1,46 @@
++{
++{-# LANGUAGE OverloadedStrings #-}
++module Main (main) where
++import System.Exit
++import Data.ByteString.Lazy.Char8 (unpack)
++}
++
++%wrapper "posn-bytestring"
++
++$digit = 0-9			-- digits
++$alpha = [a-zA-Z]		-- alphabetic characters
++
++tokens :-
++
++  $white+				;
++  "--".*				;
++  let					{ tok (\p s -> Let p) }
++  in					{ tok (\p s -> In p) }
++  $digit+                               { tok (\p s -> Int p (read (unpack s))) }
++  [\=\+\-\*\/\(\)]                      { tok (\p s -> Sym p (head (unpack s))) }
++  $alpha [$alpha $digit \_ \']*         { tok (\p s -> Var p (unpack s)) }
++
++{
++-- Each right-hand side has type :: AlexPosn -> String -> Token
++
++-- Some action helpers:
++tok f p s = f p s
++
++-- The token type:
++data Token =
++	Let AlexPosn		|
++	In  AlexPosn		|
++	Sym AlexPosn Char	|
++        Var AlexPosn String     |
++	Int AlexPosn Int	|
++	Err AlexPosn
++	deriving (Eq,Show)
++
++main = if test1 /= result1 then exitFailure
++			   else exitWith ExitSuccess
++
++test1 = alexScanTokens "  let in 012334\n=+*foo bar__'"
++result1 = [Let (AlexPn 2 1 3),In (AlexPn 6 1 7),Int (AlexPn 9 1 10) 12334,Sym (AlexPn 16 2 1) '=',Sym (AlexPn 17 2 2) '+',Sym (AlexPn 18 2 3) '*',Var (AlexPn 19 2 4) "foo",Var (AlexPn 23 2 8) "bar__'"]
++
++
++}