Skip to content

haskell-gargantext
haskell-gargantext
Commit 1bff83b6 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
Browse files
Options

Fuzzy comparison for phylo2dot2json

parent 0f1e5574
Hide whitespace changes
Inline Side-by-side
Showing with 115 additions and 2104 deletions
test-data/phylo/187481.json
View file @ 1bff83b6
This source diff could not be displayed because it is too large. You can view the blob instead.
test-data/phylo/small-phylo.golden.json
View file @ 1bff83b6
{
"PhyloScale": "0.1",
"_subgraph_cnt": 7,
"bb": "0,0,276.25,787.25",
"color": "white",
"directed": true,
"edges": [
{
"_gvid": 0,
"color": "black",
"head": 8,
"pos": "e,138.12,609.4 138.12,680.9 138.12,662.97 138.12,640.27 138.12,620.76",
"tail": 7,
"width": "5"
},
{
"_gvid": 1,
"color": "black",
"head": 9,
"pos": "e,138.12,473.15 138.12,544.65 138.12,526.72 138.12,504.02 138.12,484.51",
"tail": 8,
"width": "5"
},
{
"_gvid": 2,
"color": "black",
"head": 10,
"pos": "e,138.12,336.9 138.12,408.4 138.12,390.47 138.12,367.77 138.12,348.26",
"tail": 9,
"width": "5"
},
{
"_gvid": 3,
"color": "black",
"head": 11,
"pos": "e,138.12,200.65 138.12,272.15 138.12,254.22 138.12,231.52 138.12,212.01",
"tail": 10,
"width": "5"
},
{
"_gvid": 4,
"color": "black",
"head": 12,
"pos": "e,138.12,64.403 138.12,135.9 138.12,117.97 138.12,95.268 138.12,75.761",
"tail": 11,
"width": "5"
}
],
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "bpa",
"nodesep": "1",
"objects": [
{
"PhyloScale": "0.1",
"_gvid": 0,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Branches peaks",
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"PhyloScale": "0.1",
"_gvid": 1,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Period2420124203",
"nodes": [
7
],
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"PhyloScale": "0.1",
"_gvid": 2,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Period2420224204",
"nodes": [
8
],
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"PhyloScale": "0.1",
"_gvid": 3,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Period2420324205",
"nodes": [
9
],
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"PhyloScale": "0.1",
"_gvid": 4,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Period2420424206",
"nodes": [
10
],
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"PhyloScale": "0.1",
"_gvid": 5,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Period2420524207",
"nodes": [
11
],
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"PhyloScale": "0.1",
"_gvid": 6,
"bb": "0,0,276.25,787.25",
"color": "white",
"fontsize": "30",
"label": "bpa",
"labelloc": "t",
"lheight": "0.47",
"lp": "138.12,766.38",
"lwidth": "0.60",
"name": "Period2420624208",
"nodes": [
12
],
"nodesep": "1",
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"style": "filled"
},
{
"_gvid": 7,
"fontsize": "50",
"from": "24201",
"height": "0.89236",
"label": "24201 24203",
"name": "period2420124203",
"nodeType": "period",
"pos": "138.12,713.38",
"shape": "box",
"strFrom": "\"2016-10-31\"",
"strTo": "\"2016-10-31\"",
"to": "24203",
"width": "3.8368"
},
{
"_gvid": 8,
"fontsize": "50",
"from": "24202",
"height": "0.89236",
"label": "24202 24204",
"name": "period2420224204",
"nodeType": "period",
"pos": "138.12,577.12",
"shape": "box",
"strFrom": "\"2017-01-01\"",
"strTo": "\"2017-01-03\"",
"to": "24204",
"width": "3.8368"
},
{
"_gvid": 9,
"fontsize": "50",
"from": "24203",
"height": "0.89236",
"label": "24203 24205",
"name": "period2420324205",
"nodeType": "period",
"pos": "138.12,440.88",
"shape": "box",
"strFrom": "\"\"",
"strTo": "\"\"",
"to": "24205",
"width": "3.8368"
},
{
"_gvid": 10,
"fontsize": "50",
"from": "24204",
"height": "0.89236",
"label": "24204 24206",
"name": "period2420424206",
"nodeType": "period",
"pos": "138.12,304.62",
"shape": "box",
"strFrom": "\"\"",
"strTo": "\"\"",
"to": "24206",
"width": "3.8368"
},
{
"_gvid": 11,
"fontsize": "50",
"from": "24205",
"height": "0.89236",
"label": "24205 24207",
"name": "period2420524207",
"nodeType": "period",
"pos": "138.12,168.38",
"shape": "box",
"strFrom": "\"\"",
"strTo": "\"\"",
"to": "24207",
"width": "3.8368"
},
{
"_gvid": 12,
"fontsize": "50",
"from": "24206",
"height": "0.89236",
"label": "24206 24208",
"name": "period2420624208",
"nodeType": "period",
"pos": "138.12,32.125",
"shape": "box",
"strFrom": "\"2017-05-01\"",
"strTo": "\"2017-05-25\"",
"to": "24208",
"width": "3.8368"
}
],
"overlap": "scale",
"phyloBranches": "0",
"phyloDocs": "9.0",
"phyloFoundations": "67",
"phyloGroups": "0",
"phyloPeriods": "6",
"phyloQuality": "0.0",
"phyloSeaRiseStart": "0.0",
"phyloSeaRiseSteps": "0.1",
"phyloSources": "[]",
"phyloTerms": "0",
"phyloTimeScale": "week",
"rank": "same",
"ranksep": "1",
"ratio": "fill",
"splines": "spline",
"strict": false,
"style": "filled"
}
{"_phylo_counts":{"coocByDate":{"24201":[[[0,0],1],[[0,1],1],[[0,2],1],[[0,3],1],[[0,4],1],[[0,5],1],[[0,6],1],[[0,7],1],[[0,8],1],[[0,9],1],[[0,10],1],[[0,11],1],[[1,1],1],[[1,2],1],[[1,3],1],[[1,4],1],[[1,5],1],[[1,6],1],[[1,7],1],[[1,8],1],[[1,9],1],[[1,10],1],[[1,11],1],[[2,2],1],[[2,3],1],[[2,4],1],[[2,5],1],[[2,6],1],[[2,7],1],[[2,8],1],[[2,9],1],[[2,10],1],[[2,11],1],[[3,3],1],[[3,4],1],[[3,5],1],[[3,6],1],[[3,7],1],[[3,8],1],[[3,9],1],[[3,10],1],[[3,11],1],[[4,4],1],[[4,5],1],[[4,6],1],[[4,7],1],[[4,8],1],[[4,9],1],[[4,10],1],[[4,11],1],[[5,5],1],[[5,6],1],[[5,7],1],[[5,8],1],[[5,9],1],[[5,10],1],[[5,11],1],[[6,6],1],[[6,7],1],[[6,8],1],[[6,9],1],[[6,10],1],[[6,11],1],[[7,7],1],[[7,8],1],[[7,9],1],[[7,10],1],[[7,11],1],[[8,8],1],[[8,9],1],[[8,10],1],[[8,11],1],[[9,9],1],[[9,10],1],[[9,11],1],[[10,10],1],[[10,11],1],[[11,11],1]],"24202":[],"24203":[],"24204":[[[1,1],1],[[1,7],1],[[1,8],1],[[1,12],1],[[1,13],1],[[1,14],1],[[1,15],1],[[1,16],1],[[1,17],1],[[1,18],1],[[1,19],1],[[1,20],1],[[1,21],1],[[1,22],1],[[3,3],1],[[3,7],1],[[3,8],1],[[3,11],1],[[3,23],1],[[3,24],1],[[3,25],1],[[3,26],1],[[3,27],1],[[3,28],1],[[3,29],1],[[3,30],1],[[3,31],1],[[3,32],1],[[3,33],1],[[4,4],1],[[4,7],1],[[4,8],1],[[4,45],1],[[4,46],1],[[4,47],1],[[4,48],1],[[7,7],4],[[7,8],4],[[7,11],2],[[7,12],1],[[7,13],1],[[7,14],1],[[7,15],1],[[7,16],1],[[7,17],1],[[7,18],1],[[7,19],1],[[7,20],1],[[7,21],1],[[7,22],1],[[7,23],1],[[7,24],2],[[7,25],1],[[7,26],1],[[7,27],1],[[7,28],1],[[7,29],2],[[7,30],1],[[7,31],1],[[7,32],1],[[7,33],1],[[7,34],1],[[7,35],1],[[7,36],1],[[7,37],1],[[7,38],1],[[7,39],1],[[7,40],1],[[7,41],1],[[7,42],1],[[7,43],1],[[7,44],1],[[7,45],1],[[7,46],1],[[7,47],1],[[7,48],1],[[8,8],4],[[8,11],2],[[8,12],1],[[8,13],1],[[8,14],1],[[8,15],1],[[8,16],1],[[8,17],1],[[8,18],1],[[8,19],1],[[8,20],1],[[8,21],1],[[8,22],1],[[8,23],1],[[8,24],2],[[8,25],1],[[8,26],1],[[8,27],1],[[8,28],1],[[8,29],2],[[8,30],1],[[8,31],1],[[8,32],1],[[8,33],1],[[8,34],1],[[8,35],1],[[8,36],1],[[8,37],1],[[8,38],1],[[8,39],1],[[8,40],1],[[8,41],1],[[8,42],1],[[8,43],1],[[8,44],1],[[8,45],1],[[8,46],1],[[8,47],1],[[8,48],1],[[11,11],2],[[11,23],1],[[11,24],2],[[11,25],1],[[11,26],1],[[11,27],1],[[11,28],1],[[11,29],2],[[11,30],1],[[11,31],1],[[11,32],1],[[11,33],1],[[11,34],1],[[11,35],1],[[11,36],1],[[11,37],1],[[11,38],1],[[11,39],1],[[11,40],1],[[11,41],1],[[11,42],1],[[11,43],1],[[11,44],1],[[12,12],1],[[12,13],1],[[12,14],1],[[12,15],1],[[12,16],1],[[12,17],1],[[12,18],1],[[12,19],1],[[12,20],1],[[12,21],1],[[12,22],1],[[13,13],1],[[13,14],1],[[13,15],1],[[13,16],1],[[13,17],1],[[13,18],1],[[13,19],1],[[13,20],1],[[13,21],1],[[13,22],1],[[14,14],1],[[14,15],1],[[14,16],1],[[14,17],1],[[14,18],1],[[14,19],1],[[14,20],1],[[14,21],1],[[14,22],1],[[15,15],1],[[15,16],1],[[15,17],1],[[15,18],1],[[15,19],1],[[15,20],1],[[15,21],1],[[15,22],1],[[16,16],1],[[16,17],1],[[16,18],1],[[16,19],1],[[16,20],1],[[16,21],1],[[16,22],1],[[17,17],1],[[17,18],1],[[17,19],1],[[17,20],1],[[17,21],1],[[17,22],1],[[18,18],1],[[18,19],1],[[18,20],1],[[18,21],1],[[18,22],1],[[19,19],1],[[19,20],1],[[19,21],1],[[19,22],1],[[20,20],1],[[20,21],1],[[20,22],1],[[21,21],1],[[21,22],1],[[22,22],1],[[23,23],1],[[23,24],1],[[23,25],1],[[23,26],1],[[23,27],1],[[23,28],1],[[23,29],1],[[23,30],1],[[23,31],1],[[23,32],1],[[23,33],1],[[24,24],2],[[24,25],1],[[24,26],1],[[24,27],1],[[24,28],1],[[24,29],2],[[24,30],1],[[24,31],1],[[24,32],1],[[24,33],1],[[24,34],1],[[24,35],1],[[24,36],1],[[24,37],1],[[24,38],1],[[24,39],1],[[24,40],1],[[24,41],1],[[24,42],1],[[24,43],1],[[24,44],1],[[25,25],1],[[25,26],1],[[25,27],1],[[25,28],1],[[25,29],1],[[25,30],1],[[25,31],1],[[25,32],1],[[25,33],1],[[26,26],1],[[26,27],1],[[26,28],1],[[26,29],1],[[26,30],1],[[26,31],1],[[26,32],1],[[26,33],1],[[27,27],1],[[27,28],1],[[27,29],1],[[27,30],1],[[27,31],1],[[27,32],1],[[27,33],1],[[28,28],1],[[28,29],1],[[28,30],1],[[28,31],1],[[28,32],1],[[28,33],1],[[29,29],2],[[29,30],1],[[29,31],1],[[29,32],1],[[29,33],1],[[29,34],1],[[29,35],1],[[29,36],1],[[29,37],1],[[29,38],1],[[29,39],1],[[29,40],1],[[29,41],1],[[29,42],1],[[29,43],1],[[29,44],1],[[30,30],1],[[30,31],1],[[30,32],1],[[30,33],1],[[31,31],1],[[31,32],1],[[31,33],1],[[32,32],1],[[32,33],1],[[33,33],1],[[34,34],1],[[34,35],1],[[34,36],1],[[34,37],1],[[34,38],1],[[34,39],1],[[34,40],1],[[34,41],1],[[34,42],1],[[34,43],1],[[34,44],1],[[35,35],1],[[35,36],1],[[35,37],1],[[35,38],1],[[35,39],1],[[35,40],1],[[35,41],1],[[35,42],1],[[35,43],1],[[35,44],1],[[36,36],1],[[36,37],1],[[36,38],1],[[36,39],1],[[36,40],1],[[36,41],1],[[36,42],1],[[36,43],1],[[36,44],1],[[37,37],1],[[37,38],1],[[37,39],1],[[37,40],1],[[37,41],1],[[37,42],1],[[37,43],1],[[37,44],1],[[38,38],1],[[38,39],1],[[38,40],1],[[38,41],1],[[38,42],1],[[38,43],1],[[38,44],1],[[39,39],1],[[39,40],1],[[39,41],1],[[39,42],1],[[39,43],1],[[39,44],1],[[40,40],1],[[40,41],1],[[40,42],1],[[40,43],1],[[40,44],1],[[41,41],1],[[41,42],1],[[41,43],1],[[41,44],1],[[42,42],1],[[42,43],1],[[42,44],1],[[43,43],1],[[43,44],1],[[44,44],1],[[45,45],1],[[45,46],1],[[45,47],1],[[45,48],1],[[46,46],1],[[46,47],1],[[46,48],1],[[47,47],1],[[47,48],1],[[48,48],1]],"24205":[],"24206":[],"24207":[],"24208":[[[1,1],1],[[1,7],1],[[1,8],1],[[1,10],1],[[1,11],1],[[1,24],1],[[1,37],1],[[1,39],1],[[1,41],1],[[1,42],1],[[1,48],1],[[1,53],1],[[1,61],1],[[1,62],1],[[1,63],1],[[1,64],1],[[1,65],1],[[1,66],1],[[4,4],1],[[4,7],1],[[4,8],1],[[4,11],1],[[4,15],1],[[4,24],1],[[4,32],1],[[4,36],1],[[4,37],1],[[4,38],1],[[4,39],1],[[4,49],1],[[4,50],1],[[4,51],1],[[4,52],1],[[4,53],1],[[4,54],1],[[4,55],1],[[4,56],1],[[4,57],1],[[7,7],3],[[7,8],3],[[7,10],1],[[7,11],3],[[7,15],1],[[7,24],3],[[7,32],1],[[7,36],1],[[7,37],2],[[7,38],1],[[7,39],2],[[7,41],1],[[7,42],1],[[7,48],1],[[7,49],2],[[7,50],1],[[7,51],1],[[7,52],1],[[7,53],2],[[7,54],1],[[7,55],1],[[7,56],1],[[7,57],1],[[7,60],1],[[7,61],2],[[7,62],1],[[7,63],1],[[7,64],1],[[7,65],1],[[7,66],1],[[8,8],4],[[8,10],1],[[8,11],3],[[8,15],1],[[8,24],4],[[8,26],1],[[8,32],1],[[8,34],1],[[8,36],1],[[8,37],3],[[8,38],1],[[8,39],2],[[8,40],1],[[8,41],1],[[8,42],1],[[8,44],1],[[8,48],1],[[8,49],3],[[8,50],1],[[8,51],1],[[8,52],1],[[8,53],3],[[8,54],1],[[8,55],1],[[8,56],1],[[8,57],2],[[8,58],1],[[8,59],1],[[8,60],1],[[8,61],2],[[8,62],1],[[8,63],1],[[8,64],1],[[8,65],1],[[8,66],1],[[10,10],1],[[10,11],1],[[10,24],1],[[10,37],1],[[10,39],1],[[10,41],1],[[10,42],1],[[10,48],1],[[10,53],1],[[10,61],1],[[10,62],1],[[10,63],1],[[10,64],1],[[10,65],1],[[10,66],1],[[11,11],3],[[11,15],1],[[11,24],3],[[11,32],1],[[11,36],1],[[11,37],2],[[11,38],1],[[11,39],2],[[11,41],1],[[11,42],1],[[11,48],1],[[11,49],2],[[11,50],1],[[11,51],1],[[11,52],1],[[11,53],2],[[11,54],1],[[11,55],1],[[11,56],1],[[11,57],1],[[11,60],1],[[11,61],2],[[11,62],1],[[11,63],1],[[11,64],1],[[11,65],1],[[11,66],1],[[15,15],1],[[15,24],1],[[15,32],1],[[15,36],1],[[15,37],1],[[15,38],1],[[15,39],1],[[15,49],1],[[15,50],1],[[15,51],1],[[15,52],1],[[15,53],1],[[15,54],1],[[15,55],1],[[15,56],1],[[15,57],1],[[24,24],4],[[24,26],1],[[24,32],1],[[24,34],1],[[24,36],1],[[24,37],3],[[24,38],1],[[24,39],2],[[24,40],1],[[24,41],1],[[24,42],1],[[24,44],1],[[24,48],1],[[24,49],3],[[24,50],1],[[24,51],1],[[24,52],1],[[24,53],3],[[24,54],1],[[24,55],1],[[24,56],1],[[24,57],2],[[24,58],1],[[24,59],1],[[24,60],1],[[24,61],2],[[24,62],1],[[24,63],1],[[24,64],1],[[24,65],1],[[24,66],1],[[26,26],1],[[26,34],1],[[26,37],1],[[26,40],1],[[26,44],1],[[26,49],1],[[26,53],1],[[26,57],1],[[26,58],1],[[26,59],1],[[32,32],1],[[32,36],1],[[32,37],1],[[32,38],1],[[32,39],1],[[32,49],1],[[32,50],1],[[32,51],1],[[32,52],1],[[32,53],1],[[32,54],1],[[32,55],1],[[32,56],1],[[32,57],1],[[34,34],1],[[34,37],1],[[34,40],1],[[34,44],1],[[34,49],1],[[34,53],1],[[34,57],1],[[34,58],1],[[34,59],1],[[36,36],1],[[36,37],1],[[36,38],1],[[36,39],1],[[36,49],1],[[36,50],1],[[36,51],1],[[36,52],1],[[36,53],1],[[36,54],1],[[36,55],1],[[36,56],1],[[36,57],1],[[37,37],3],[[37,38],1],[[37,39],2],[[37,40],1],[[37,41],1],[[37,42],1],[[37,44],1],[[37,48],1],[[37,49],2],[[37,50],1],[[37,51],1],[[37,52],1],[[37,53],3],[[37,54],1],[[37,55],1],[[37,56],1],[[37,57],2],[[37,58],1],[[37,59],1],[[37,61],1],[[37,62],1],[[37,63],1],[[37,64],1],[[37,65],1],[[37,66],1],[[38,38],1],[[38,39],1],[[38,49],1],[[38,50],1],[[38,51],1],[[38,52],1],[[38,53],1],[[38,54],1],[[38,55],1],[[38,56],1],[[38,57],1],[[39,39],2],[[39,41],1],[[39,42],1],[[39,48],1],[[39,49],1],[[39,50],1],[[39,51],1],[[39,52],1],[[39,53],2],[[39,54],1],[[39,55],1],[[39,56],1],[[39,57],1],[[39,61],1],[[39,62],1],[[39,63],1],[[39,64],1],[[39,65],1],[[39,66],1],[[40,40],1],[[40,44],1],[[40,49],1],[[40,53],1],[[40,57],1],[[40,58],1],[[40,59],1],[[41,41],1],[[41,42],1],[[41,48],1],[[41,53],1],[[41,61],1],[[41,62],1],[[41,63],1],[[41,64],1],[[41,65],1],[[41,66],1],[[42,42],1],[[42,48],1],[[42,53],1],[[42,61],1],[[42,62],1],[[42,63],1],[[42,64],1],[[42,65],1],[[42,66],1],[[44,44],1],[[44,49],1],[[44,53],1],[[44,57],1],[[44,58],1],[[44,59],1],[[48,48],1],[[48,53],1],[[48,61],1],[[48,62],1],[[48,63],1],[[48,64],1],[[48,65],1],[[48,66],1],[[49,49],3],[[49,50],1],[[49,51],1],[[49,52],1],[[49,53],2],[[49,54],1],[[49,55],1],[[49,56],1],[[49,57],2],[[49,58],1],[[49,59],1],[[49,60],1],[[49,61],1],[[50,50],1],[[50,51],1],[[50,52],1],[[50,53],1],[[50,54],1],[[50,55],1],[[50,56],1],[[50,57],1],[[51,51],1],[[51,52],1],[[51,53],1],[[51,54],1],[[51,55],1],[[51,56],1],[[51,57],1],[[52,52],1],[[52,53],1],[[52,54],1],[[52,55],1],[[52,56],1],[[52,57],1],[[53,53],3],[[53,54],1],[[53,55],1],[[53,56],1],[[53,57],2],[[53,58],1],[[53,59],1],[[53,61],1],[[53,62],1],[[53,63],1],[[53,64],1],[[53,65],1],[[53,66],1],[[54,54],1],[[54,55],1],[[54,56],1],[[54,57],1],[[55,55],1],[[55,56],1],[[55,57],1],[[56,56],1],[[56,57],1],[[57,57],2],[[57,58],1],[[57,59],1],[[58,58],1],[[58,59],1],[[59,59],1],[[60,60],1],[[60,61],1],[[61,61],2],[[61,62],1],[[61,63],1],[[61,64],1],[[61,65],1],[[61,66],1],[[62,62],1],[[62,63],1],[[62,64],1],[[62,65],1],[[62,66],1],[[63,63],1],[[63,64],1],[[63,65],1],[[63,66],1],[[64,64],1],[[64,65],1],[[64,66],1],[[65,65],1],[[65,66],1],[[66,66],1]]},"docsByDate":{"24201":1,"24202":0,"24203":0,"24204":4,"24205":0,"24206":0,"24207":0,"24208":4},"lastRootsFreq":{"1":1.7543859649122806e-2,"10":1.7543859649122806e-2,"11":5.263157894736842e-2,"15":1.7543859649122806e-2,"24":7.017543859649122e-2,"26":1.7543859649122806e-2,"32":1.7543859649122806e-2,"34":1.7543859649122806e-2,"36":1.7543859649122806e-2,"37":5.263157894736842e-2,"38":1.7543859649122806e-2,"39":3.508771929824561e-2,"4":1.7543859649122806e-2,"40":1.7543859649122806e-2,"41":1.7543859649122806e-2,"42":1.7543859649122806e-2,"44":1.7543859649122806e-2,"48":1.7543859649122806e-2,"49":5.263157894736842e-2,"50":1.7543859649122806e-2,"51":1.7543859649122806e-2,"52":1.7543859649122806e-2,"53":5.263157894736842e-2,"54":1.7543859649122806e-2,"55":1.7543859649122806e-2,"56":1.7543859649122806e-2,"57":3.508771929824561e-2,"58":1.7543859649122806e-2,"59":1.7543859649122806e-2,"60":1.7543859649122806e-2,"61":3.508771929824561e-2,"62":1.7543859649122806e-2,"63":1.7543859649122806e-2,"64":1.7543859649122806e-2,"65":1.7543859649122806e-2,"66":1.7543859649122806e-2,"7":5.263157894736842e-2,"8":7.017543859649122e-2},"rootsCount":{"0":1,"1":3,"10":2,"11":6,"12":1,"13":1,"14":1,"15":2,"16":1,"17":1,"18":1,"19":1,"2":1,"20":1,"21":1,"22":1,"23":1,"24":6,"25":1,"26":2,"27":1,"28":1,"29":2,"3":2,"30":1,"31":1,"32":2,"33":1,"34":2,"35":1,"36":2,"37":4,"38":2,"39":3,"4":3,"40":2,"41":2,"42":2,"43":1,"44":2,"45":1,"46":1,"47":1,"48":2,"49":3,"5":1,"50":1,"51":1,"52":1,"53":3,"54":1,"55":1,"56":1,"57":2,"58":1,"59":1,"6":1,"60":1,"61":2,"62":1,"63":1,"64":1,"65":1,"66":1,"7":8,"8":9,"9":1},"rootsCountByDate":{"24201":{"0":1,"1":1,"10":1,"11":1,"2":1,"3":1,"4":1,"5":1,"6":1,"7":1,"8":1,"9":1},"24202":{},"24203":{},"24204":{"1":1,"11":2,"12":1,"13":1,"14":1,"15":1,"16":1,"17":1,"18":1,"19":1,"20":1,"21":1,"22":1,"23":1,"24":2,"25":1,"26":1,"27":1,"28":1,"29":2,"3":1,"30":1,"31":1,"32":1,"33":1,"34":1,"35":1,"36":1,"37":1,"38":1,"39":1,"4":1,"40":1,"41":1,"42":1,"43":1,"44":1,"45":1,"46":1,"47":1,"48":1,"7":4,"8":4},"24205":{},"24206":{},"24207":{},"24208":{"1":1,"10":1,"11":3,"15":1,"24":4,"26":1,"32":1,"34":1,"36":1,"37":3,"38":1,"39":2,"4":1,"40":1,"41":1,"42":1,"44":1,"48":1,"49":3,"50":1,"51":1,"52":1,"53":3,"54":1,"55":1,"56":1,"57":2,"58":1,"59":1,"60":1,"61":2,"62":1,"63":1,"64":1,"65":1,"66":1,"7":3,"8":4}},"rootsFreq":{"0":8.264462809917366e-3,"1":2.4793388429752098e-2,"10":1.6528925619834732e-2,"11":4.9586776859504196e-2,"12":8.264462809917366e-3,"13":8.264462809917366e-3,"14":8.264462809917366e-3,"15":1.6528925619834732e-2,"16":8.264462809917366e-3,"17":8.264462809917366e-3,"18":8.264462809917366e-3,"19":8.264462809917366e-3,"2":8.264462809917366e-3,"20":8.264462809917366e-3,"21":8.264462809917366e-3,"22":8.264462809917366e-3,"23":8.264462809917366e-3,"24":4.9586776859504196e-2,"25":8.264462809917366e-3,"26":1.6528925619834732e-2,"27":8.264462809917366e-3,"28":8.264462809917366e-3,"29":1.6528925619834732e-2,"3":1.6528925619834732e-2,"30":8.264462809917366e-3,"31":8.264462809917366e-3,"32":1.6528925619834732e-2,"33":8.264462809917366e-3,"34":1.6528925619834732e-2,"35":8.264462809917366e-3,"36":1.6528925619834732e-2,"37":3.3057851239669464e-2,"38":1.6528925619834732e-2,"39":2.4793388429752098e-2,"4":2.4793388429752098e-2,"40":1.6528925619834732e-2,"41":1.6528925619834732e-2,"42":1.6528925619834732e-2,"43":8.264462809917366e-3,"44":1.6528925619834732e-2,"45":8.264462809917366e-3,"46":8.264462809917366e-3,"47":8.264462809917366e-3,"48":1.6528925619834732e-2,"49":2.4793388429752098e-2,"5":8.264462809917366e-3,"50":8.264462809917366e-3,"51":8.264462809917366e-3,"52":8.264462809917366e-3,"53":2.4793388429752098e-2,"54":8.264462809917366e-3,"55":8.264462809917366e-3,"56":8.264462809917366e-3,"57":1.6528925619834732e-2,"58":8.264462809917366e-3,"59":8.264462809917366e-3,"6":8.264462809917366e-3,"60":8.264462809917366e-3,"61":1.6528925619834732e-2,"62":8.264462809917366e-3,"63":8.264462809917366e-3,"64":8.264462809917366e-3,"65":8.264462809917366e-3,"66":8.264462809917366e-3,"7":6.611570247933893e-2,"8":7.43801652892563e-2,"9":8.264462809917366e-3}},"_phylo_foundations":{"roots":["organic pollutants","samples","visible light irradiation","addition","results","physicochemical properties","%","bisphenol","bpa","photocatalytic mechanism","compounds","study","determination","endocrine disruptors","extraction","water","sample","desorption time","mobile phase","flow rate","lods","μg","method was","dna methylation","exposures","toxicity","role","stem cells","induction","groups","expression","controls","sources","new mechanism","development","insulin resistance","polycarbonate plastics","effects","levels","animals","studies","present study","detection","higher rates","conclusion","x-ray diffraction","scanning electron microscopy","fourier transform infrared spectroscopy","analysis","animal","drinking water","epoxy resins","concerns","risks","endocrine system","higher bpa levels","findings indicate","food","chemicals","phthalates","data","concentrations","human health","bpb","bpf","bps","bisphenols"],"rootsInGroups":{"0":[[[[24201,24203],1],0]],"1":[[[[24201,24203],1],0]],"10":[[[[24201,24203],1],0]],"11":[[[[24206,24208],1],0],[[[24201,24203],1],0]],"2":[[[[24201,24203],1],0]],"24":[[[[24206,24208],1],2],[[[24206,24208],1],1],[[[24206,24208],1],0]],"3":[[[[24201,24203],1],0]],"37":[[[[24206,24208],1],1]],"4":[[[[24201,24203],1],0]],"49":[[[[24206,24208],1],2]],"5":[[[[24201,24203],1],0]],"53":[[[[24206,24208],1],1]],"6":[[[[24201,24203],1],0]],"7":[[[[24206,24208],1],0],[[[24202,24204],1],0],[[[24201,24203],1],0]],"8":[[[[24206,24208],1],2],[[[24206,24208],1],1],[[[24206,24208],1],0],[[[24202,24204],1],0],[[[24201,24203],1],0]],"9":[[[[24201,24203],1],0]]}},"_phylo_level":0.1,"_phylo_param":{"_phyloParam_config":{"clique":{"_fis_size":1,"_fis_support":3,"tag":"Fis"},"corpusParser":{"_csv_limit":1500000,"tag":"Csv"},"corpusPath":"/mnt/work-encrypted/clients/CNRS/haskell-gargantext/adinapoli-wip2/./test-data/phylo/small_phylo_docslist.csv","defaultMode":false,"exportFilter":[{"_branch_size":2}],"exportLabel":[{"_branch_labelSize":2,"_branch_labelTagger":"MostEmergentTfIdf","tag":"BranchLabel"},{"_group_labelSize":2,"_group_labelTagger":"MostEmergentInclusive","tag":"GroupLabel"}],"exportSort":{"_sort_order":"Desc","tag":"ByHierarchy"},"findAncestors":true,"listParser":"V3","listPath":"/mnt/work-encrypted/clients/CNRS/haskell-gargantext/adinapoli-wip2/./test-data/phylo/small_phylo_ngramslist.csv","outputPath":"data","phyloName":"bpa","phyloQuality":{"_qua_granularity":0.1,"_qua_minBranch":2},"phyloScale":2,"phyloSynchrony":{"_bpt_scope":"AllBranches","_bpt_sensibility":0,"_bpt_strategy":"MergeAllGroups","_bpt_threshold":0.6,"tag":"ByProximityThreshold"},"seaElevation":{"_evol_neighborhood":true,"tag":"Evolving"},"similarity":{"_wlj_minSharedNgrams":1,"_wlj_sensibility":0.5,"tag":"WeightedLogJaccard"},"timeUnit":{"_week_matchingFrame":5,"_week_period":4,"_week_step":2,"tag":"Week"}},"_phyloParam_software":{"_software_name":"GarganText","_software_version":"v5"},"_phyloParam_version":"v3"},"_phylo_periods":[[[24201,24203],{"_phylo_periodPeriod":[24201,24203],"_phylo_periodPeriodStr":["2016-10-31","2016-10-31"],"_phylo_periodScales":[[[[24201,24203],1],{"_phylo_scaleGroups":[[[[[24201,24203],1],0],{"_phylo_groupAncestors":[],"_phylo_groupBranchId":[1,[0]],"_phylo_groupCooc":[[[0,0],1],[[0,1],1],[[0,2],1],[[0,3],1],[[0,4],1],[[0,5],1],[[0,6],1],[[0,7],1],[[0,8],1],[[0,9],1],[[0,10],1],[[0,11],1],[[1,1],1],[[1,2],1],[[1,3],1],[[1,4],1],[[1,5],1],[[1,6],1],[[1,7],1],[[1,8],1],[[1,9],1],[[1,10],1],[[1,11],1],[[2,2],1],[[2,3],1],[[2,4],1],[[2,5],1],[[2,6],1],[[2,7],1],[[2,8],1],[[2,9],1],[[2,10],1],[[2,11],1],[[3,3],1],[[3,4],1],[[3,5],1],[[3,6],1],[[3,7],1],[[3,8],1],[[3,9],1],[[3,10],1],[[3,11],1],[[4,4],1],[[4,5],1],[[4,6],1],[[4,7],1],[[4,8],1],[[4,9],1],[[4,10],1],[[4,11],1],[[5,5],1],[[5,6],1],[[5,7],1],[[5,8],1],[[5,9],1],[[5,10],1],[[5,11],1],[[6,6],1],[[6,7],1],[[6,8],1],[[6,9],1],[[6,10],1],[[6,11],1],[[7,7],1],[[7,8],1],[[7,9],1],[[7,10],1],[[7,11],1],[[8,8],1],[[8,9],1],[[8,10],1],[[8,11],1],[[9,9],1],[[9,10],1],[[9,11],1],[[10,10],1],[[10,11],1],[[11,11],1]],"_phylo_groupDensity":5.5,"_phylo_groupIndex":0,"_phylo_groupLabel":"","_phylo_groupMeta":{"breaks":[0],"seaLevels":[0]},"_phylo_groupNgrams":[0,1,2,3,4,5,6,7,8,9,10,11],"_phylo_groupPeriod":[24201,24203],"_phylo_groupPeriod'":["2016-10-31","2016-10-31"],"_phylo_groupPeriodChilds":[],"_phylo_groupPeriodMemoryChilds":[],"_phylo_groupPeriodMemoryParents":[],"_phylo_groupPeriodParents":[],"_phylo_groupRootsCount":{"0":1,"1":1,"10":1,"11":1,"2":1,"3":1,"4":1,"5":1,"6":1,"7":1,"8":1,"9":1},"_phylo_groupScale":1,"_phylo_groupScaleChilds":[],"_phylo_groupScaleParents":[],"_phylo_groupSources":[],"_phylo_groupSupport":1,"_phylo_groupWeight":1}]],"_phylo_scalePeriod":[24201,24203],"_phylo_scalePeriodStr":["2016-10-31","2016-10-31"],"_phylo_scaleScale":1}]]}],[[24202,24204],{"_phylo_periodPeriod":[24202,24204],"_phylo_periodPeriodStr":["2017-01-01","2017-01-03"],"_phylo_periodScales":[[[[24202,24204],1],{"_phylo_scaleGroups":[[[[[24202,24204],1],0],{"_phylo_groupAncestors":[],"_phylo_groupBranchId":[1,[0]],"_phylo_groupCooc":[[[7,7],4],[[7,8],4],[[8,8],4]],"_phylo_groupDensity":0.5,"_phylo_groupIndex":0,"_phylo_groupLabel":"","_phylo_groupMeta":{"breaks":[0],"seaLevels":[0]},"_phylo_groupNgrams":[7,8],"_phylo_groupPeriod":[24202,24204],"_phylo_groupPeriod'":["2017-01-01","2017-01-03"],"_phylo_groupPeriodChilds":[],"_phylo_groupPeriodMemoryChilds":[],"_phylo_groupPeriodMemoryParents":[],"_phylo_groupPeriodParents":[],"_phylo_groupRootsCount":{"1":1,"11":2,"12":1,"13":1,"14":1,"15":1,"16":1,"17":1,"18":1,"19":1,"20":1,"21":1,"22":1,"23":1,"24":2,"25":1,"26":1,"27":1,"28":1,"29":2,"3":1,"30":1,"31":1,"32":1,"33":1,"34":1,"35":1,"36":1,"37":1,"38":1,"39":1,"4":1,"40":1,"41":1,"42":1,"43":1,"44":1,"45":1,"46":1,"47":1,"48":1,"7":4,"8":4},"_phylo_groupScale":1,"_phylo_groupScaleChilds":[],"_phylo_groupScaleParents":[],"_phylo_groupSources":[],"_phylo_groupSupport":4,"_phylo_groupWeight":4}]],"_phylo_scalePeriod":[24202,24204],"_phylo_scalePeriodStr":["2017-01-01","2017-01-03"],"_phylo_scaleScale":1}]]}],[[24203,24205],{"_phylo_periodPeriod":[24203,24205],"_phylo_periodPeriodStr":["",""],"_phylo_periodScales":[[[[24203,24205],1],{"_phylo_scaleGroups":[],"_phylo_scalePeriod":[24203,24205],"_phylo_scalePeriodStr":["",""],"_phylo_scaleScale":1}]]}],[[24204,24206],{"_phylo_periodPeriod":[24204,24206],"_phylo_periodPeriodStr":["",""],"_phylo_periodScales":[[[[24204,24206],1],{"_phylo_scaleGroups":[],"_phylo_scalePeriod":[24204,24206],"_phylo_scalePeriodStr":["",""],"_phylo_scaleScale":1}]]}],[[24205,24207],{"_phylo_periodPeriod":[24205,24207],"_phylo_periodPeriodStr":["",""],"_phylo_periodScales":[[[[24205,24207],1],{"_phylo_scaleGroups":[],"_phylo_scalePeriod":[24205,24207],"_phylo_scalePeriodStr":["",""],"_phylo_scaleScale":1}]]}],[[24206,24208],{"_phylo_periodPeriod":[24206,24208],"_phylo_periodPeriodStr":["2017-05-01","2017-05-25"],"_phylo_periodScales":[[[[24206,24208],1],{"_phylo_scaleGroups":[[[[[24206,24208],1],0],{"_phylo_groupAncestors":[],"_phylo_groupBranchId":[1,[0]],"_phylo_groupCooc":[[[7,7],3],[[7,8],3],[[7,11],3],[[7,24],3],[[8,8],4],[[8,11],3],[[8,24],4],[[11,11],3],[[11,24],3],[[24,24],4]],"_phylo_groupDensity":1.25,"_phylo_groupIndex":0,"_phylo_groupLabel":"","_phylo_groupMeta":{"breaks":[0],"seaLevels":[0]},"_phylo_groupNgrams":[7,8,11,24],"_phylo_groupPeriod":[24206,24208],"_phylo_groupPeriod'":["2017-05-01","2017-05-25"],"_phylo_groupPeriodChilds":[],"_phylo_groupPeriodMemoryChilds":[],"_phylo_groupPeriodMemoryParents":[],"_phylo_groupPeriodParents":[],"_phylo_groupRootsCount":{"1":1,"10":1,"11":3,"15":1,"24":4,"26":1,"32":1,"34":1,"36":1,"37":3,"38":1,"39":2,"4":1,"40":1,"41":1,"42":1,"44":1,"48":1,"49":3,"50":1,"51":1,"52":1,"53":3,"54":1,"55":1,"56":1,"57":2,"58":1,"59":1,"60":1,"61":2,"62":1,"63":1,"64":1,"65":1,"66":1,"7":3,"8":4},"_phylo_groupScale":1,"_phylo_groupScaleChilds":[],"_phylo_groupScaleParents":[],"_phylo_groupSources":[],"_phylo_groupSupport":3,"_phylo_groupWeight":3}],[[[[24206,24208],1],1],{"_phylo_groupAncestors":[],"_phylo_groupBranchId":[1,[0]],"_phylo_groupCooc":[[[8,8],4],[[8,24],4],[[8,37],3],[[8,53],3],[[24,24],4],[[24,37],3],[[24,53],3],[[37,37],3],[[37,53],3],[[53,53],3]],"_phylo_groupDensity":1.25,"_phylo_groupIndex":1,"_phylo_groupLabel":"","_phylo_groupMeta":{"breaks":[0],"seaLevels":[0]},"_phylo_groupNgrams":[8,24,37,53],"_phylo_groupPeriod":[24206,24208],"_phylo_groupPeriod'":["2017-05-01","2017-05-25"],"_phylo_groupPeriodChilds":[],"_phylo_groupPeriodMemoryChilds":[],"_phylo_groupPeriodMemoryParents":[],"_phylo_groupPeriodParents":[],"_phylo_groupRootsCount":{"1":1,"10":1,"11":3,"15":1,"24":4,"26":1,"32":1,"34":1,"36":1,"37":3,"38":1,"39":2,"4":1,"40":1,"41":1,"42":1,"44":1,"48":1,"49":3,"50":1,"51":1,"52":1,"53":3,"54":1,"55":1,"56":1,"57":2,"58":1,"59":1,"60":1,"61":2,"62":1,"63":1,"64":1,"65":1,"66":1,"7":3,"8":4},"_phylo_groupScale":1,"_phylo_groupScaleChilds":[],"_phylo_groupScaleParents":[],"_phylo_groupSources":[],"_phylo_groupSupport":3,"_phylo_groupWeight":3}],[[[[24206,24208],1],2],{"_phylo_groupAncestors":[],"_phylo_groupBranchId":[1,[0]],"_phylo_groupCooc":[[[8,8],4],[[8,24],4],[[8,49],3],[[24,24],4],[[24,49],3],[[49,49],3]],"_phylo_groupDensity":0.8333333333333334,"_phylo_groupIndex":2,"_phylo_groupLabel":"","_phylo_groupMeta":{"breaks":[0],"seaLevels":[0]},"_phylo_groupNgrams":[8,24,49],"_phylo_groupPeriod":[24206,24208],"_phylo_groupPeriod'":["2017-05-01","2017-05-25"],"_phylo_groupPeriodChilds":[],"_phylo_groupPeriodMemoryChilds":[],"_phylo_groupPeriodMemoryParents":[],"_phylo_groupPeriodParents":[],"_phylo_groupRootsCount":{"1":1,"10":1,"11":3,"15":1,"24":4,"26":1,"32":1,"34":1,"36":1,"37":3,"38":1,"39":2,"4":1,"40":1,"41":1,"42":1,"44":1,"48":1,"49":3,"50":1,"51":1,"52":1,"53":3,"54":1,"55":1,"56":1,"57":2,"58":1,"59":1,"60":1,"61":2,"62":1,"63":1,"64":1,"65":1,"66":1,"7":3,"8":4},"_phylo_groupScale":1,"_phylo_groupScaleChilds":[],"_phylo_groupScaleParents":[],"_phylo_groupSources":[],"_phylo_groupSupport":3,"_phylo_groupWeight":3}]],"_phylo_scalePeriod":[24206,24208],"_phylo_scalePeriodStr":["2017-05-01","2017-05-25"],"_phylo_scaleScale":1}]]}]],"_phylo_quality":0,"_phylo_seaLadder":[0.1,0.2,0.30000000000000004,0.4,0.5,0.6,0.7,0.7999999999999999,0.8999999999999999,0.9999999999999999],"_phylo_sources":{"_sources":[]}}
\ No newline at end of file
test/Test/Offline/Phylo.hs
View file @ 1bff83b6
......@@ -7,33 +7,26 @@ module Test.Offline.Phylo (tests) where
import Common
import Data.Aeson as JSON
import Data.Aeson.Encode.Pretty qualified as JSON
import Data.Aeson.Types qualified as JSON
import Data.ByteString.Lazy qualified as BL
import Data.GraphViz.Attributes.Complete qualified as Graphviz
import Data.Text.Encoding qualified as TE
import Data.Text.Lazy as TL
import Data.TreeDiff
import Data.Vector qualified as V
import Gargantext.Core.Text.List.Formats.CSV
import Gargantext.Core.Types.Phylo
import Gargantext.Core.Viz.Phylo
import Gargantext.Core.Viz.Phylo.API
import Gargantext.Core.Viz.Phylo.API.Tools (readPhylo, writePhylo, phylo2dot2json)
import Gargantext.Core.Viz.Phylo hiding (EdgeType(..))
import Gargantext.Core.Viz.Phylo.API.Tools (readPhylo, phylo2dot2json)
import Gargantext.Core.Viz.Phylo.Example qualified as Cleopatre
import Gargantext.Core.Viz.Phylo.PhyloExport
import Gargantext.Core.Viz.Phylo.PhyloMaker (toPhylo, toPhyloWithoutLink)
import Gargantext.Core.Viz.Phylo.PhyloTools
import Paths_gargantext
import Prelude
import Test.QuickCheck
import Test.QuickCheck.Monadic
import Test.Tasty
import Test.Tasty.HUnit
import Test.Tasty.QuickCheck
phyloConfig :: PhyloConfig
phyloConfig = PhyloConfig {
phyloTestConfig :: PhyloConfig
phyloTestConfig = PhyloConfig {
corpusPath = "corpus.csv"
, listPath = "list.csv"
, outputPath = "data/"
......@@ -70,7 +63,6 @@ tests = testGroup "Phylo" [
testCase "is deterministic" testPhylo2dot2json
]
, testGroup "toPhylo" [
--testProperty "returns expected data" testSmallPhyloExpectedOutput
testCase "is deterministic" testToPhyloDeterminism
]
, testGroup "relatedComponents" [
......@@ -82,7 +74,7 @@ testCleopatreWithoutLinkExpectedOutput :: Assertion
testCleopatreWithoutLinkExpectedOutput = do
let actual = toPhyloWithoutLink Cleopatre.docs Cleopatre.config
expected <- readPhylo =<< getDataFileName "test-data/phylo/cleopatre.golden.json"
assertBool (show $ ansiWlEditExpr $ ediff' expected actual) (expected == actual)
assertBool (show $ ansiWlEditExprCompact $ ediff expected actual) (expected == actual)
testSmallPhyloWithoutLinkExpectedOutput :: Assertion
testSmallPhyloWithoutLinkExpectedOutput = do
......@@ -97,31 +89,106 @@ testSmallPhyloWithoutLinkExpectedOutput = do
(corpusPath config)
[Year 3 1 5,Month 3 1 5,Week 4 2 5]
mapList
actual <- phylo2dot2json (toPhyloWithoutLink corpus config)
expected_e <- JSON.eitherDecodeFileStrict' =<< getDataFileName "test-data/phylo/small-phylo.golden.json"
case expected_e of
Left err -> fail err
Right (expected :: JSON.Value) -> do
assertBool (show $ ansiWlEditExpr $ ediff' expected actual) (expected == actual)
let actual = setConfig phyloTestConfig $ toPhyloWithoutLink corpus config
expected <- setConfig phyloTestConfig <$> (readPhylo =<< getDataFileName "test-data/phylo/small-phylo.golden.json")
assertBool (show $ ansiWlEditExpr $ ediff expected actual) (expected == actual)
testPhylo2dot2json :: Assertion
testPhylo2dot2json = do
expected_e <- JSON.eitherDecodeFileStrict' =<< getDataFileName "test-data/phylo/phylo2dot2json.golden.json"
case expected_e of
Left err -> fail err
Right (jsonBlob :: JSON.Value) -> do
actualBlob <- phylo2dot2json Cleopatre.phyloCleopatre
let prettyConfig = JSON.defConfig { JSON.confCompare = compare }
let actualJSON = TE.decodeUtf8 (BL.toStrict $ JSON.encodePretty' prettyConfig $ jsonBlob)
let expectedJSON = TE.decodeUtf8 (BL.toStrict $ JSON.encodePretty' prettyConfig $ actualBlob)
assertBool ("JSON mismatch!" <> show (ansiWlEditExpr $ ediff' expectedJSON actualJSON)) (expectedJSON == actualJSON)
testSmallPhyloExpectedOutput :: Property
testSmallPhyloExpectedOutput = monadicIO $ do
issue290PhyloSmall <- run $ setConfig phyloConfig <$> (readPhylo =<< getDataFileName "bench-data/phylo/issue-290-small.json")
let actual = toPhylo issue290PhyloSmall
expected <- run $ readPhylo =<< getDataFileName "test-data/phylo/issue-290-small.golden.json"
pure $ counterexample (show $ ansiWlEditExpr $ ediff' expected actual) (expected === actual)
Right (expected :: GraphData) -> do
actual_e <- JSON.parseEither JSON.parseJSON <$> phylo2dot2json Cleopatre.phyloCleopatre
case actual_e of
Left err -> fail err
Right (actual :: GraphData) -> do
assertBool ("Phylo mismatch!" <> show (ansiWlEditExpr $ ediff expected actual)) (expected `compareGraphDataFuzzy` actual)
compareGraphDataFuzzy :: GraphData -> GraphData -> Bool
compareGraphDataFuzzy gd1 gd2 =
and [ _gd__subgraph_cnt gd1 == _gd__subgraph_cnt gd2
, _gd_directed gd1 == _gd_directed gd2
, and $ Prelude.map (uncurry compareEdgeDataFuzzy) $ Prelude.zip (_gd_edges gd1) (_gd_edges gd2)
, and $ Prelude.map (uncurry compareObjectDataFuzzy) $ Prelude.zip (_gd_objects gd1) (_gd_objects gd2)
, _gd_strict gd1 == _gd_strict gd2
, _gd_data gd1 `compareGraphDataDataFuzzy` _gd_data gd2
]
where
gdd1 `compareEdgeDataFuzzy` ggd2 = case (gdd1, ggd2) of
(GroupToAncestor gvId1 ecd1 gad1, GroupToAncestor gvId2 ecd2 gad2)
-> and [ gvId1 == gvId2, ecd1 `compareEdgeCommonDataFuzzy` ecd2, gad1 == gad2 ]
(GroupToAncestor{}, _)
-> False
(GroupToGroup gvId1 ecd1 gd1', GroupToGroup gvId2 ecd2 gd2')
-> and [ gvId1 == gvId2, ecd1 `compareEdgeCommonDataFuzzy` ecd2, gd1' == gd2' ]
(GroupToGroup{}, _)
-> False
(BranchToGroup gvId1 ecd1 bgd1, BranchToGroup gvId2 ecd2 bgd2)
-> and [ gvId1 == gvId2, ecd1 `compareEdgeCommonDataFuzzy` ecd2, bgd1 == bgd2 ]
(BranchToGroup{}, _)
-> False
(PeriodToPeriod gvId1 ecd1, PeriodToPeriod gvId2 ecd2)
-> and [ gvId1 == gvId2, ecd1 `compareEdgeCommonDataFuzzy` ecd2 ]
(PeriodToPeriod{}, _)
-> False
gdd1 `compareObjectDataFuzzy` ggd2 = case (gdd1, ggd2) of
(GroupToNode gvId1 ncd1 gnd1, GroupToNode gvId2 ncd2 gnd2)
-> and [ gvId1 == gvId2, ncd1 `compareNodeCommonDataFuzzy` ncd2, gnd1 == gnd2 ]
(GroupToNode{}, _)
-> False
(BranchToNode gvId1 ncd1 bnd1, BranchToNode gvId2 ncd2 bnd2)
-> and [ gvId1 == gvId2, ncd1 `compareNodeCommonDataFuzzy` ncd2, bnd1 == bnd2 ]
(BranchToNode{}, _)
-> False
(PeriodToNode gvId1 ncd1 pnd1, PeriodToNode gvId2 ncd2 pnd2)
-> and [ gvId1 == gvId2, ncd1 `compareNodeCommonDataFuzzy` ncd2, pnd1 == pnd2 ]
(PeriodToNode{}, _)
-> False
(Layer gvId1 gdd1' ld1, Layer gvId2 gdd2 ld2)
-> and [ gvId1 == gvId2, gdd1' `compareGraphDataDataFuzzy` gdd2, ld1 == ld2 ]
(Layer{}, _)
-> False
gdd1 `compareNodeCommonDataFuzzy` ggd2 =
-- Excluded fields: pos, width, height.
and [ _nd_label gdd1 == _nd_label ggd2
, _nd_name gdd1 == _nd_name ggd2
, _nd_nodeType gdd1 == _nd_nodeType ggd2
, _nd_shape gdd1 == _nd_shape ggd2
]
gdd1 `compareEdgeCommonDataFuzzy` gdd2 =
-- Excluded fields: pos, width.
and [ _ed_color gdd1 == _ed_color gdd2
, _ed_head gdd1 == _ed_head gdd2
, _ed_tail gdd1 == _ed_tail gdd2
]
gdd1 `compareGraphDataDataFuzzy` ggd2 =
-- Excluded fields: bb, lp, lheight, lwidth.
and [ _gdd_color gdd1 == _gdd_color ggd2
, _gdd_fontsize gdd1 == _gdd_fontsize ggd2
, _gdd_label gdd1 == _gdd_label ggd2
, _gdd_labelloc gdd1 == _gdd_labelloc ggd2
, _gdd_name gdd1 == _gdd_name ggd2
, _gdd_nodesep gdd1 == _gdd_nodesep ggd2
, _gdd_overlap gdd1 == _gdd_overlap ggd2
, _gdd_phyloBranches gdd1 == _gdd_phyloBranches ggd2
, _gdd_phyloDocs gdd1 == _gdd_phyloDocs ggd2
, _gdd_phyloFoundations gdd1 == _gdd_phyloFoundations ggd2
, _gdd_phyloGroups gdd1 == _gdd_phyloGroups ggd2
, _gdd_phyloPeriods gdd1 == _gdd_phyloPeriods ggd2
, _gdd_phyloSources gdd1 == _gdd_phyloSources ggd2
, _gdd_phyloTerms gdd1 == _gdd_phyloTerms ggd2
, _gdd_phyloTimeScale gdd1 == _gdd_phyloTimeScale ggd2
, _gdd_rank gdd1 == _gdd_rank ggd2
, _gdd_ranksep gdd1 == _gdd_ranksep ggd2
, _gdd_ratio gdd1 == _gdd_ratio ggd2
, _gdd_splines gdd1 == _gdd_splines ggd2
, _gdd_style gdd1 == _gdd_style ggd2
]
test_ngramsToLabel_01 :: Assertion
test_ngramsToLabel_01 =
......@@ -149,30 +216,17 @@ testRelComp_Connected = do
testToPhyloDeterminism :: Assertion
testToPhyloDeterminism = do
-- Acquire the config from the golden file.
expected_e <- JSON.eitherDecodeFileStrict' =<< getDataFileName "test-data/phylo/187481.json"
case expected_e of
Left err -> fail err
Right (pd :: PhyloData) -> do
let goldenCfg = pd_config pd
corpusPath' <- getDataFileName "test-data/phylo/GarganText_DocsList-nodeId-187481.csv"
listPath' <- getDataFileName "test-data/phylo/GarganText_NgramsList-187482.csv"
let config = goldenCfg { corpusPath = corpusPath'
, listPath = listPath'
, listParser = V3
}
mapList <- csvMapTermList (listPath config)
corpus <- fileToDocsDefault (corpusParser config)
(corpusPath config)
[Year 3 1 5,Month 3 1 5,Week 4 2 5]
mapList
let actualPhylo = toPhylo $ toPhyloWithoutLink corpus config
actual_e <- JSON.parseEither JSON.parseJSON <$> phylo2dot2json actualPhylo
case actual_e of
Left err -> fail err
Right (expected :: GraphData) -> do
assertBool ("Phylo mismatch! " <> show (ansiWlEditExpr $ ediff' expected (pd_data pd))) (expected == pd_data pd)
let prettyConfig = JSON.defConfig { JSON.confCompare = compare }
let actualJSON = TE.decodeUtf8 (BL.toStrict $ JSON.encodePretty' prettyConfig $ pd_data pd)
let expectedJSON = TE.decodeUtf8 (BL.toStrict $ JSON.encodePretty' prettyConfig $ expected)
assertBool ("JSON mismatch!" <> show (ansiWlEditExpr $ ediff' expectedJSON actualJSON)) (expectedJSON == actualJSON)
corpusPath' <- getDataFileName "test-data/phylo/GarganText_DocsList-nodeId-187481.csv"
listPath' <- getDataFileName "test-data/phylo/GarganText_NgramsList-187482.csv"
let config = phyloTestConfig { corpusPath = corpusPath'
, listPath = listPath'
, listParser = V3
}
mapList <- csvMapTermList (listPath config)
corpus <- fileToDocsDefault (corpusParser config)
(corpusPath config)
[Year 3 1 5,Month 3 1 5,Week 4 2 5]
mapList
let actual = setConfig phyloTestConfig $ toPhylo $ toPhyloWithoutLink corpus config
expected <- setConfig phyloTestConfig <$> (readPhylo =<< getDataFileName "test-data/phylo/187481.json")
assertBool ("Phylo mismatch! " <> show (ansiWlEditExprCompact $ ediff expected actual)) (expected == actual)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment