Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
gargantext-ihaskell
Commits
397f5656
Commit
397f5656
authored
May 29, 2015
by
Andrew Gibiansky
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove MissingH from test suite
parent
0b6185ee
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
1 deletion
+15
-1
Hspec.hs
Hspec.hs
+15
-1
No files found.
Hspec.hs
View file @
397f5656
{-# LANGUAGE QuasiQuotes, OverloadedStrings, ExtendedDefaultRules, CPP #-}
-- Keep all the language pragmas here so it can be compiled separately.
module
Main
where
import
Prelude
import
qualified
Data.Text
as
T
import
GHC
hiding
(
Qualified
)
import
GHC.Paths
import
Data.IORef
...
...
@@ -16,7 +18,6 @@ import qualified Shelly
import
Control.Applicative
((
<$>
))
import
System.SetEnv
(
setEnv
)
import
Data.String.Here
import
Data.String.Utils
(
strip
,
replace
)
import
Data.Monoid
import
IHaskell.Eval.Parser
...
...
@@ -34,6 +35,19 @@ import Test.Hspec
import
Test.Hspec.HUnit
import
Test.HUnit
(
assertBool
,
assertFailure
)
lstrip
::
String
->
String
lstrip
=
dropWhile
(`
elem
`
(
"
\t\r\n
"
::
String
))
rstrip
::
String
->
String
rstrip
=
reverse
.
lstrip
.
reverse
strip
::
String
->
String
strip
=
rstrip
.
lstrip
replace
::
String
->
String
->
String
->
String
replace
needle
replacement
haystack
=
T
.
unpack
$
T
.
replace
(
T
.
pack
needle
)
(
T
.
pack
replacement
)
(
T
.
pack
haystack
)
traceShowId
x
=
traceShow
x
x
doGhc
=
runGhc
(
Just
libdir
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment