Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
159
Issues
159
List
Board
Labels
Milestones
Merge Requests
8
Merge Requests
8
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
haskell-gargantext
Commits
76a9e478
Verified
Commit
76a9e478
authored
Nov 21, 2024
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[tests] fix tests (no AsyncUpdates module anymore, was merged incorrectly)
parent
917e622b
Pipeline
#7022
failed with stages
in 55 minutes and 21 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
0 additions
and
41 deletions
+0
-41
gargantext.cabal
gargantext.cabal
+0
-1
AsyncUpdates.hs
test/Test/Core/AsyncUpdates.hs
+0
-40
No files found.
gargantext.cabal
View file @
76a9e478
...
...
@@ -821,7 +821,6 @@ test-suite garg-test-tasty
Test.API.Setup
Test.API.Prelude
Test.API.UpdateList
Test.Core.AsyncUpdates
Test.Core.Notifications
Test.Core.Similarity
Test.Core.Text
...
...
test/Test/Core/AsyncUpdates.hs
deleted
100644 → 0
View file @
917e622b
{-|
Module : Core.Notifications
Description :
Copyright : (c) CNRS, 2017-Present
License : AGPL + CECILL v3
Maintainer : team@gargantext.org
Stability : experimental
Portability : POSIX
-}
module
Test.Core.Notifications
(
test
,
qcTests
)
where
import
Data.Aeson
qualified
as
A
import
Gargantext.Core.Notifications.CentralExchange.Types
import
Gargantext.Core.Notifications.Dispatcher.Types
import
Gargantext.Prelude
import
Test.Hspec
import
Test.Instances
()
import
Test.Tasty
import
Test.Tasty.QuickCheck
qualified
as
QC
test
::
Spec
test
=
do
describe
"check if json serialization of CEMessage works"
$
do
it
"UpdateTreeFirstLevel serialization"
$
do
let
ce
=
UpdateTreeFirstLevel
15
A
.
decode
(
A
.
encode
ce
)
`
shouldBe
`
(
Just
ce
)
qcTests
::
TestTree
qcTests
=
testGroup
"Notifications QuickCheck tests"
$
do
[
QC
.
testProperty
"CEMessage aeson encoding"
$
\
m
->
A
.
decode
(
A
.
encode
(
m
::
CEMessage
))
==
Just
m
,
QC
.
testProperty
"Topic aeson encoding"
$
\
t
->
A
.
decode
(
A
.
encode
(
t
::
Topic
))
==
Just
t
,
QC
.
testProperty
"Message aeson encoding"
$
\
m
->
A
.
decode
(
A
.
encode
(
m
::
Message
))
==
Just
m
,
QC
.
testProperty
"WSRequest aeson encoding"
$
\
ws
->
A
.
decode
(
A
.
encode
(
ws
::
WSRequest
))
==
Just
ws
]
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