Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-test
Commits
5c9d91be
Commit
5c9d91be
authored
Mar 20, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Implement human-readable variant of CounterExamples
parent
17035cfc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
1 deletion
+7
-1
Tools/CleanTest.icl
Tools/CleanTest.icl
+7
-1
No files found.
Tools/CleanTest.icl
View file @
5c9d91be
...
...
@@ -373,7 +373,8 @@ where
FailedAssertions
fas
->
"
\n
Failed assumptions:
\n
"
+++
replaceSubString
"
\n
"
"
\n
"
(
replaceSubString
"
\t
"
" "
$
join
"
\n
"
$
map
printFA
fas
)
CounterExamples
ces
->
"
\n
CES"
CounterExamples
ces
->
"
\n
Counter-examples:
\n
- "
+++
join
"
\n
- "
(
map
(
replaceSubString
"
\n
"
"
\n
"
o
printCE
)
ces
)
FailedChildren
fcs
->
"
\n
Children tests failed: "
+++
join
", "
(
map
fst
fcs
)
Crashed
->
"
\n
Crashed"
_
->
""
...
...
@@ -383,6 +384,11 @@ where
Eq
->
diffToConsole
$
gDiff
{|*|}
x
y
_
->
toString
x
+++
"
\n
"
+++
toString
y
printCE
::
CounterExample
->
String
printCE
ce
=
join
" "
(
map
toString
ce
.
counterExample
)
+++
case
ce
.
failedAssertions
of
[]
->
""
fas
->
":
\n
"
+++
join
"
\n
"
(
map
printFA
ce
.
failedAssertions
)
return
::
!
EndEventType
!
TestRun
!*
File
!*
World
->
*(!
RunResult
,
!*
World
)
return
eet
r
io
w
#
(_,
w
)
=
fclose
io
w
...
...
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