| Server IP : 91.108.119.155 / Your IP : 216.73.217.6 Web Server : LiteSpeed System : Linux id-dci-web1986.main-hosting.eu 5.14.0-611.26.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Jan 29 05:24:47 EST 2026 x86_64 User : u686484674 ( 686484674) PHP Version : 8.0.30 Disable Function : system, exec, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail MySQL : OFF | cURL : ON | WGET : ON | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/opt/go/pkg/mod/github.com/prometheus/alertmanager@v0.28.1/ui/app/tests/ |
Upload File : |
module Filter exposing (parseMatcher, stringifyFilter, toUrl)
import Expect
import Fuzz exposing (string, tuple)
import Helpers exposing (isNotEmptyTrimmedAlphabetWord)
import Test exposing (..)
import Utils.Filter exposing (MatchOperator(..), Matcher)
parseMatcher : Test
parseMatcher =
describe "parseMatcher"
[ test "should parse empty matcher string" <|
\() ->
Expect.equal Nothing (Utils.Filter.parseMatcher "")
, test "should parse empty matcher value" <|
\() ->
Expect.equal (Just (Matcher "alertname" Eq "")) (Utils.Filter.parseMatcher "alertname=\"\"")
, fuzz (tuple ( string, string )) "should parse random matcher string" <|
\( key, value ) ->
if List.map isNotEmptyTrimmedAlphabetWord [ key, value ] /= [ True, True ] then
Expect.equal
Nothing
(Utils.Filter.parseMatcher <| String.concat [ key, "=", value ])
else
Expect.equal
(Just (Matcher key Eq value))
(Utils.Filter.parseMatcher <| String.concat [ key, "=", "\"", value, "\"" ])
]
toUrl : Test
toUrl =
describe "toUrl"
[ test "should not render keys with Nothing value except the silenced, inhibited, muted and active parameters, which default to false, false, false, true, respectively." <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=false&muted=false&active=true"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Nothing, showSilenced = Nothing, showInhibited = Nothing, showMuted = Nothing, showActive = Nothing })
, test "should not render filter key with empty value" <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=false&muted=false&active=true"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Just "", showSilenced = Nothing, showInhibited = Nothing, showMuted = Nothing, showActive = Nothing })
, test "should render filter key with values" <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=false&muted=false&active=true&filter=%7Bfoo%3D%22bar%22%2C%20baz%3D~%22quux.*%22%7D"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Just "{foo=\"bar\", baz=~\"quux.*\"}", showSilenced = Nothing, showInhibited = Nothing, showMuted = Nothing, showActive = Nothing })
, test "should render silenced key with bool" <|
\() ->
Expect.equal "/alerts?silenced=true&inhibited=false&muted=false&active=true"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Nothing, showSilenced = Just True, showInhibited = Nothing, showMuted = Nothing, showActive = Nothing })
, test "should render inhibited key with bool" <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=true&muted=false&active=true"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Nothing, showSilenced = Nothing, showInhibited = Just True, showMuted = Nothing, showActive = Nothing })
, test "should render muted key with bool" <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=false&muted=true&active=true"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Nothing, showSilenced = Nothing, showInhibited = Nothing, showMuted = Just True, showActive = Nothing })
, test "should render active key with bool" <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=false&muted=false&active=false"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = False, text = Nothing, showSilenced = Nothing, showInhibited = Nothing, showMuted = Nothing, showActive = Just False })
, test "should add customGrouping key" <|
\() ->
Expect.equal "/alerts?silenced=false&inhibited=false&muted=false&active=true&customGrouping=true"
(Utils.Filter.toUrl "/alerts" { receiver = Nothing, group = Nothing, customGrouping = True, text = Nothing, showSilenced = Nothing, showInhibited = Nothing, showMuted = Nothing, showActive = Nothing })
]
stringifyFilter : Test
stringifyFilter =
describe "stringifyFilter"
[ test "empty" <|
\() ->
Expect.equal ""
(Utils.Filter.stringifyFilter [])
, test "non-empty" <|
\() ->
Expect.equal "{foo=\"bar\", baz=~\"quux.*\"}"
(Utils.Filter.stringifyFilter
[ { key = "foo", op = Eq, value = "bar" }
, { key = "baz", op = RegexMatch, value = "quux.*" }
]
)
]