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
191
Issues
191
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
0314bf55
Commit
0314bf55
authored
Jul 14, 2025
by
Alfredo Di Napoli
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use mkMapTerm in tests
parent
fb8b17c4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
23 deletions
+8
-23
Query.hs
test/Test/Ngrams/Query.hs
+1
-1
Ngrams.hs
test/Test/Offline/Ngrams.hs
+7
-22
No files found.
test/Test/Ngrams/Query.hs
View file @
0314bf55
{-# LANGUAGE TypeApplications #-}
module
Test.Ngrams.Query
(
tests
)
where
module
Test.Ngrams.Query
(
tests
,
mkMapTerm
)
where
import
Control.Monad
import
Data.Coerce
...
...
test/Test/Offline/Ngrams.hs
View file @
0314bf55
...
...
@@ -20,6 +20,7 @@ import Gargantext.Database.Schema.Context
import
Test.HUnit
import
Test.Hspec
import
Test.Instances
()
import
Test.Ngrams.Query
(
mkMapTerm
)
import
Test.QuickCheck
import
Test.QuickCheck
qualified
as
QC
...
...
@@ -101,28 +102,12 @@ tests = describe "Ngrams" $ do
testFilterNgramsNodesEmptyQuery
::
Assertion
testFilterNgramsNodesEmptyQuery
=
do
let
input
=
Map
.
fromList
[
(
"car"
,
NgramsElement
{
_ne_ngrams
=
"car"
,
_ne_size
=
1
,
_ne_list
=
MapTerm
,
_ne_occurrences
=
mempty
,
_ne_root
=
Just
"vehicle"
,
_ne_parent
=
Just
"vehicle"
,
_ne_children
=
mSetFromList
[
"ford"
]
})
,
(
"ford"
,
NgramsElement
{
_ne_ngrams
=
"ford"
,
_ne_size
=
1
,
_ne_list
=
MapTerm
,
_ne_occurrences
=
mempty
,
_ne_root
=
Just
"vehicle"
,
_ne_parent
=
Just
"car"
,
_ne_children
=
mempty
})
,
(
"vehicle"
,
NgramsElement
{
_ne_ngrams
=
"vehicle"
,
_ne_size
=
1
,
_ne_list
=
MapTerm
,
_ne_occurrences
=
mempty
,
_ne_root
=
Nothing
,
_ne_parent
=
Nothing
,
_ne_children
=
mSetFromList
[
"car"
]})
(
"vehicle"
,
mkMapTerm
"vehicle"
&
ne_children
.~
mSetFromList
[
"car"
])
,
(
"car"
,
mkMapTerm
"car"
&
ne_root
.~
Just
"vehicle"
&
ne_parent
.~
Just
"vehicle"
&
ne_children
.~
mSetFromList
[
"ford"
])
,
(
"ford"
,
mkMapTerm
"ford"
&
ne_root
.~
Just
"vehicle"
&
ne_parent
.~
Just
"car"
)
]
let
actual
=
filterNgramsNodes
(
Just
MapTerm
)
Nothing
Nothing
(
const
True
)
input
actual
@?=
(
Set
.
fromList
$
Map
.
elems
input
)
...
...
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