NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-09-21 12:19:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Test asFragmentTuples

Browse Source
This commit is contained in:
Tessa Kelly 2023-03-10 11:28:18 -07:00
parent 58869f913a
commit e1260b079b
1 changed files with 60 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
tests/Spec/Nri/Ui/Highlightable.elm
View File

@ -16,7 +16,7 @@ import Test exposing (..)
spec : Test
spec =
describe "Highlightable"
[ describe "roundtrip from initFragment via toTuplesByFragment"
[ describe "roundtrip from initFragment via asFragmentTuples"
[ fuzz (list string) "toTuplesByFragment (initFragment [str]) ... == [str]" <|
\strings ->
let
@ -60,6 +60,7 @@ spec =
, describe "usedMarkers" usedMarkersSpec
, describe "blur" blurSpec
, describe "hover" hoverSpec
, describe "asFragmentTuples" asFragmentTuplesSpec
]
@ -202,15 +203,6 @@ fromMarkdownSpec =
joinAdjacentInteractiveHighlightsSpec : List Test
joinAdjacentInteractiveHighlightsSpec =
let
mark kind =
Tool.buildMarker
{ highlightColor = Colors.highlightYellow
, hoverColor = Colors.highlightYellow
, hoverHighlightColor = Colors.highlightYellow
, kind = kind
, name = Nothing
}
init type_ marks index =
Highlightable.init type_ marks index ( [], "Content" )
@ -358,15 +350,6 @@ usedMarkersSpec =
>> Highlightable.usedMarkers Sort.alphabetical
>> Sort.Set.toList
mark kind =
Tool.buildMarker
{ highlightColor = Colors.highlightYellow
, hoverColor = Colors.highlightYellow
, hoverHighlightColor = Colors.highlightYellow
, kind = kind
, name = Nothing
}
init type_ marks index =
Highlightable.init type_ marks index ( [], "Content" )
@ -463,3 +446,61 @@ hoverSpec =
|> Highlightable.hover
|> Expect.equal (highlightable Highlightable.Hovered)
]
asFragmentTuplesSpec : List Test
asFragmentTuplesSpec =
[ test "for a size-1 list" <|
\() ->
[ { text = "Content"
, uiState = Highlightable.None
, customAttributes = []
, marked = [ mark "a", mark "b" ]
, index = 0
, type_ = Interactive
}
]
|> Highlightable.asFragmentTuples
|> Expect.equal [ ( [ "a", "b" ], "Content" ) ]
, test "for a longer list" <|
\() ->
[ { text = "Content"
, uiState = Highlightable.None
, customAttributes = []
, marked = [ mark "a", mark "b" ]
, index = 0
, type_ = Interactive
}
, { text = " "
, uiState = Highlightable.None
, customAttributes = []
, marked = [ mark "a" ]
, index = 1
, type_ = Static
}
, { text = "Content"
, uiState = Highlightable.None
, customAttributes = []
, marked = [ mark "a", mark "c" ]
, index = 2
, type_ = Interactive
}
]
|> Highlightable.asFragmentTuples
|> Expect.equal
[ ( [ "a", "b" ], "Content" )
, ( [ "a" ], " " )
, ( [ "a", "c" ], "Content" )
]
]
mark : a -> Tool.MarkerModel a
mark kind =
Tool.buildMarker
{ highlightColor = Colors.highlightYellow
, hoverColor = Colors.highlightYellow
, hoverHighlightColor = Colors.highlightYellow
, kind = kind
, name = Nothing
}