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
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
75
Issues
75
List
Boards
Labels
Service Desk
Milestones
Merge Requests
7
Merge Requests
7
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
iTasks-SDK
Commits
c705406c
Verified
Commit
c705406c
authored
Aug 19, 2019
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix previous merge
parent
121eba63
Pipeline
#28191
passed with stage
in 5 minutes and 13 seconds
Changes
2
Pipelines
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
10 deletions
+10
-10
Libraries/iTasks/Extensions/Development/Testing.icl
Libraries/iTasks/Extensions/Development/Testing.icl
+7
-7
Tools/CodeQualityMonitor.icl
Tools/CodeQualityMonitor.icl
+3
-3
No files found.
Libraries/iTasks/Extensions/Development/Testing.icl
View file @
c705406c
...
...
@@ -11,9 +11,9 @@ import Text, Data.Tuple, Data.Error, Data.Func, System.FilePath, System.OS
derive
class
iTask
EndEventType
,
Expression
derive
gEditor
EndEvent
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gText
EndEvent
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gEq
EndEvent
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gEditor
EndEvent
,
TestLocation
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gText
EndEvent
,
TestLocation
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gEq
EndEvent
,
TestLocation
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
compileTestModule
::
CleanModuleName
->
Task
EndEvent
compileTestModule
(
path
,
name
)
...
...
@@ -21,8 +21,8 @@ compileTestModule (path,name)
>-|
get
cpmExecutable
>>-
\
cpm
->
runWithOutput
cpm
[
prjPath
]
Nothing
//Build the test
@
\(
c
,
o
)
->
if
(
passed
c
o
)
{
name
=
testName
,
event
=
Passed
,
message
=
join
""
o
}
{
name
=
testName
,
event
=
(
Failed
Nothing
),
message
=
join
""
o
}
{
name
=
testName
,
location
=
Just
{
moduleName
=
Just
name
},
event
=
Passed
,
message
=
join
""
o
}
{
name
=
testName
,
location
=
Just
{
moduleName
=
Just
name
},
event
=
(
Failed
Nothing
),
message
=
join
""
o
}
where
testName
=
"Compile: "
+++
name
iclPath
=
cleanFilePath
(
path
,
name
,
Icl
)
...
...
@@ -53,8 +53,8 @@ where
=
[
res
\\
Just
res
<-
map
(
fromJSON
o
fromString
)
lines
]
where
//If we can't parse the output, We'll treat it as a single simple test executable
fallback
0
_
=
[{
name
=
name
,
event
=
Passed
,
message
=
"Execution returned 0"
}]
fallback
_
output
=
[{
name
=
name
,
event
=
Failed
Nothing
,
message
=
output
}]
fallback
0
_
=
[{
name
=
name
,
location
=
Just
{
moduleName
=
Just
name
},
event
=
Passed
,
message
=
"Execution returned 0"
}]
fallback
_
output
=
[{
name
=
name
,
location
=
Just
{
moduleName
=
Just
name
},
event
=
Failed
Nothing
,
message
=
output
}]
runWithOutput
::
FilePath
[
String
]
(
Maybe
FilePath
)
->
Task
(
Int
,[
String
])
runWithOutput
prog
args
dir
=
withShared
([],
[])
\
out
->
withShared
[]
\
stdin
->
...
...
Tools/CodeQualityMonitor.icl
View file @
c705406c
...
...
@@ -39,9 +39,9 @@ EXAMPLE_MODULES :== ["../Examples/BasicApiExamples.icl"
derive
class
iTask
EndEventType
,
Expression
derive
gEditor
EndEvent
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gEq
EndEvent
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gText
EndEvent
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gEditor
EndEvent
,
TestLocation
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gEq
EndEvent
,
TestLocation
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
derive
gText
EndEvent
,
TestLocation
,
FailReason
,
FailedAssertion
,
CounterExample
,
Relation
inspectCodeQuality
::
Task
()
inspectCodeQuality
...
...
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