(*

Module: Test_Xymon_Alerting

  Provides unit tests and examples for the <Xymon_Alerting> lens.

*)

module Test_Xymon_Alerting =

    let macro_definition = "$NOTIF_LOCAL=SCRIPT /foo/xymonqpage.sh $PAGER SCRIPT /foo/xymonsms.sh $SMS FORMAT=SMS COLOR=!yellow\n"

    test Xymon_Alerting.lns get macro_definition = 

    { "$NOTIF_LOCAL" = "SCRIPT /foo/xymonqpage.sh $PAGER SCRIPT /foo/xymonsms.sh $SMS FORMAT=SMS COLOR=!yellow" }

    let basic_syntax = "HOST=hostname IGNORE\n"

    test Xymon_Alerting.lns get basic_syntax = 

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

    let two_filters = "HOST=hostname SERVICE=service IGNORE\n"

    test Xymon_Alerting.lns get two_filters =

      { "1"

        { "filters"

          { "HOST"    = "hostname" }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

    let two_recipients = "HOST=hostname IGNORE STOP\n"

    test Xymon_Alerting.lns get two_recipients =

      { "1"

        { "filters"

          { "HOST"    = "hostname" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

          { "STOP"   { "filters" } }

        }

      }

    let two_lines = "HOST=hostname SERVICE=service\n    IGNORE\n"

    test Xymon_Alerting.lns get two_lines =

      { "1"

        { "filters"

          { "HOST"    = "hostname" }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

    let two_lines_for_recipients = "HOST=hostname SERVICE=service\n    IGNORE\nSTOP\n"

    test Xymon_Alerting.lns get two_lines_for_recipients =

      { "1"

        { "filters"

          { "HOST"    = "hostname" }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

          { "STOP"   { "filters" } }

        }

      }

    let with_blanks_at_eol = "HOST=hostname SERVICE=service  \n    IGNORE  \n"

    test Xymon_Alerting.lns get with_blanks_at_eol =

      { "1"

        { "filters"

          { "HOST"    = "hostname" }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

    let several_rules = "HOST=hostname SERVICE=service\nIGNORE\nHOST=hostname2 SERVICE=svc\nIGNORE\nSTOP\n"

    test Xymon_Alerting.lns get several_rules =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

      { "2"

        { "filters"

          { "HOST" = "hostname2" }

          { "SERVICE" = "svc" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

          { "STOP"   { "filters" } }

        }

      }

    let duration = "HOST=hostname DURATION>20 SERVICE=service\nIGNORE\n"

    test Xymon_Alerting.lns get duration =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

          { "DURATION"

            { "operator" = ">" }

            { "value"    = "20" }

          }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

    let notice = "HOST=hostname NOTICE SERVICE=service\nIGNORE\n"

    test Xymon_Alerting.lns get notice =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

          { "NOTICE" }

          { "SERVICE" = "service" }

        }

        { "recipients"

          { "IGNORE" { "filters" } }

        }

      }

    let mail = "HOST=hostname MAIL astreinteMail\n"

    test Xymon_Alerting.lns get mail =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "MAIL" = "astreinteMail"

            { "filters" }

          }

        }

      }

    let script = "HOST=hostname SCRIPT /foo/email.sh astreinteMail\n"

    test Xymon_Alerting.lns get script =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "SCRIPT"

            { "script"    = "/foo/email.sh" }

            { "recipient" = "astreinteMail" }

            { "filters" }

          }

        }

      }

    let repeat = "HOST=hostname REPEAT=15\n"

    test Xymon_Alerting.lns get repeat =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "REPEAT" = "15" 

            { "filters" }

          }

        }

      }

    let mail_with_filters = "HOST=hostname MAIL astreinteMail EXSERVICE=service\n"

    test Xymon_Alerting.lns get mail_with_filters =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "MAIL" = "astreinteMail"

            { "filters"

              { "EXSERVICE" = "service" }

            }

          }

        }

      }

    let mail_with_several_filters = "HOST=hostname MAIL astreinteMail EXSERVICE=service DURATION>20\n"

    test Xymon_Alerting.lns get mail_with_several_filters =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "MAIL" = "astreinteMail"

            { "filters"

              { "EXSERVICE" = "service" }

              { "DURATION"

                { "operator" = ">" }

                { "value" = "20" }

              }

            }

          }

        }

      }

    let script_with_several_filters = "HOST=hostname SCRIPT /foo/email.sh astreinteMail EXSERVICE=service DURATION>20\n"

    test Xymon_Alerting.lns get script_with_several_filters =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "SCRIPT"

            { "script"    = "/foo/email.sh" }

            { "recipient" = "astreinteMail" }

            { "filters"

              { "EXSERVICE" = "service" }

              { "DURATION"

                { "operator" = ">" }

                { "value" = "20" }

              }

            }

          }

        }

      }

    let repeat_with_several_filters = "HOST=hostname REPEAT=15 EXSERVICE=service DURATION>20\n"

    test Xymon_Alerting.lns get repeat_with_several_filters =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "REPEAT" = "15" 

            { "filters"

              { "EXSERVICE" = "service" }

              { "DURATION"

                { "operator" = ">" }

                { "value" = "20" }

              }

            }

          }

        }

      }

    let recipients_with_several_filters = "HOST=hostname\nREPEAT=15 EXSERVICE=service DURATION>20\nMAIL astreinteMail TIME=weirdtimeformat\n"

    test Xymon_Alerting.lns get recipients_with_several_filters =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "REPEAT" = "15" 

            { "filters"

              { "EXSERVICE" = "service" }

              { "DURATION"

                { "operator" = ">" }

                { "value" = "20" }

              }

            }

          }

          { "MAIL" = "astreinteMail"

            { "filters"

              { "TIME" = "weirdtimeformat" }

            }

          }

        }

      }

    let recipient_macro = "HOST=hostname\n    $NOTIF_LOCAL\n    STOP\n"

    test Xymon_Alerting.lns get recipient_macro =

      { "1"

        { "filters"

          { "HOST" = "hostname" }

        }

        { "recipients"

          { "$NOTIF_LOCAL"

            { "filters" }

          }

          { "STOP"

            { "filters" }

          }

        }

      }