module Test_syslog =

	let conf="# $FreeBSD: src/etc/syslog.conf,v 1.30.2.1 2009/08/03 08:13:06 kensmith Exp $
#

daemon.info                                     /var/log/cvsupd.log
security.*					-/var/log/security
*.notice;authpriv.none;kern.debug;lpr.info;mail.crit;news.err	/var/log/messages
uucp,news.crit                                          /var/log/spooler
*.emerg						*
daemon.!info					/var/log/foo
daemon.<=info					/var/log/foo
daemon.!<=info					/var/log/foo
*.*						@syslog.far.away
*.*						@syslog.far.away:123
*.*						@@syslog.far.away
*.*						@@syslog.far.away:123
*.*						@[2001::1]:514
*.*						foo,bar
*.*						|\"/usr/bin/soft arg\"
!startslip
# get that out
*.*						/var/log/slip.log
!pppd,ppp

*.*						/var/log/ppp.log
!+startslip
*.*						/var/log/slip.log
!-startslip
*.*						/var/log/slip.log
#!pppd
*.*						/var/log/ppp.log
+foo.example.com
daemon.info                                     /var/log/cvsupd.log
+foo.example.com,bar.example.com
daemon.info                                     /var/log/cvsupd.log
#+bar.example.com
daemon.info                                     /var/log/cvsupd.log
-foo.example.com
daemon.info                                     /var/log/cvsupd.log
+*
daemon.info                                     /var/log/cvsupd.log
!*
daemon.info                                     /var/log/cvsupd.log
*.=debug;\
        auth,authpriv.none;\
        news.none;mail.none     -/var/log/debug
# !pppd
"

	test Syslog.lns get conf =
          { "#comment" = "$FreeBSD: src/etc/syslog.conf,v 1.30.2.1 2009/08/03 08:13:06 kensmith Exp $" }
	  { }
	  { }
	  { "entry"
	    { "selector" { "facility" = "daemon" } { "level" = "info" } }
	    { "action" { "file" = "/var/log/cvsupd.log" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "security" } { "level" = "*" } }
	    { "action" { "no_sync" } { "file" = "/var/log/security" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "notice" } }
	    { "selector" { "facility" = "authpriv" } { "level" = "none" } }
	    { "selector" { "facility" = "kern" } { "level" = "debug" } }
	    { "selector" { "facility" = "lpr" } { "level" = "info" } }
	    { "selector" { "facility" = "mail" } { "level" = "crit" } }
	    { "selector" { "facility" = "news" } { "level" = "err" } }
	    { "action" { "file" = "/var/log/messages" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "uucp" } { "facility" = "news" } { "level" = "crit" } }
	    { "action" { "file" = "/var/log/spooler" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "emerg" } }
	    { "action" { "user" = "*" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "daemon" } { "comparison" = "!" } { "level" = "info" } }
	    { "action" { "file" = "/var/log/foo" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "daemon" } { "comparison" = "<=" } { "level" = "info" } }
	    { "action" { "file" = "/var/log/foo" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "daemon" } { "comparison" = "!<=" } { "level" = "info" } }
	    { "action" { "file" = "/var/log/foo" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "protocol" = "@" } { "hostname" = "syslog.far.away" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "protocol" = "@" } { "hostname" = "syslog.far.away" } { "port" = "123" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "protocol" = "@@" } { "hostname" = "syslog.far.away" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "protocol" = "@@" } { "hostname" = "syslog.far.away" } { "port" = "123" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "protocol" = "@" } { "hostname" = "[2001::1]" } { "port" = "514" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "user" = "foo" } { "user" = "bar" } }
	  }
	  { "entry"
	    { "selector" { "facility" = "*" } { "level" = "*" } }
	    { "action" { "program" = "\"/usr/bin/soft arg\"" } }
	  }
	  { "program"
	    { "program" = "startslip" }
	    { "#comment" = "get that out" }
	    { "entry"
	      { "selector" { "facility" = "*" } { "level" = "*" } }
	      { "action" { "file" = "/var/log/slip.log" } }
	    }
	  }
	  { "program"
	    { "program" = "pppd" }
	    { "program" = "ppp" }
	    { }
	    { "entry"
	      { "selector" { "facility" = "*" } { "level" = "*" } }
	      { "action" { "file" = "/var/log/ppp.log" } }
	    }
	  }
	  { "program"
	    { "program" = "startslip" }
	    { "entry"
	      { "selector" { "facility" = "*" } { "level" = "*" } }
	      { "action" { "file" = "/var/log/slip.log" } }
	    }
	  }
	  { "program"
	    { "reverse" }
	    { "program" = "startslip" }
	    { "entry"
	      { "selector" { "facility" = "*" } { "level" = "*" } }
	      { "action" { "file" = "/var/log/slip.log" } }
	    }
	  }
	  { "program"
	    { "program" = "pppd" }
	    { "entry"
	      { "selector" { "facility" = "*" } { "level" = "*" } }
	      { "action" { "file" = "/var/log/ppp.log" } }
	    }
	  }
	  { "hostname"
	    { "hostname" = "foo.example.com" }
	    { "entry"
	      { "selector" { "facility" = "daemon" } { "level" = "info" } }
	      { "action" { "file" = "/var/log/cvsupd.log" } }
	    }
	  }
	  { "hostname"
	    { "hostname" = "foo.example.com" }
	    { "hostname" = "bar.example.com" }
	    { "entry"
	      { "selector" { "facility" = "daemon" } { "level" = "info" } }
	      { "action" { "file" = "/var/log/cvsupd.log" } }
	    }
	  }
	  { "hostname"
	    { "hostname" = "bar.example.com" }
	    { "entry"
	      { "selector" { "facility" = "daemon" } { "level" = "info" } }
	      { "action" { "file" = "/var/log/cvsupd.log" } }
	    }
	  }
	  { "hostname"
	    { "reverse" }
	    { "hostname" = "foo.example.com" }
	    { "entry"
	      { "selector" { "facility" = "daemon" } { "level" = "info" } }
	      { "action" { "file" = "/var/log/cvsupd.log" } }
	    }
	  }
	  { "hostname"
	    { "hostname" = "*" }
	    { "entry"
	      { "selector" { "facility" = "daemon" } { "level" = "info" } }
	      { "action" { "file" = "/var/log/cvsupd.log" } }
	    }
	  }
	  { "program"
	    { "program" = "*" }
	    { "entry"
	      { "selector" { "facility" = "daemon" } { "level" = "info" } }
	      { "action" { "file" = "/var/log/cvsupd.log" } } }
            { "entry"
              { "selector" { "facility" = "*" } { "comparison" = "=" } { "level" = "debug" } }
              { "selector" { "facility" = "auth" } { "facility" = "authpriv" } { "level" = "none" } }
              { "selector" { "facility" = "news" } { "level" = "none" } }
              { "selector" { "facility" = "mail" } { "level" = "none" } }
	      { "action" { "no_sync" } { "file" = "/var/log/debug" } } }
      { "#comment" = "!pppd" }
	  }

	(* changing file *)
	test Syslog.lns put "*.* /var\n" after
	  set "/entry[1]/action/file" "/foo"
	  = "*.* /foo\n"

	(* changing file to discard *)
	test Syslog.lns put "*.* /var\n" after
	  rm "/entry[1]/action/file" ;
	  set "/entry[1]/action/discard" ""
	  = "*.* ~\n"

	(* removing entry *)
	test Syslog.lns put "*.* /var\n" after
	  rm "/entry[1]"
	  = ""

	(* changing facility and level *)
	test Syslog.lns put "*.* /var\n" after
	  set "/entry[1]/selector/facility" "daemon" ;
	  set "/entry[1]/selector/level" "info"
	  = "daemon.info /var\n"

	(* insert a facility *)
	test Syslog.lns put "daemon.* /var\n" after
	  insa "facility" "/entry/selector/facility" ;
	  set "/entry/selector/facility[2]" "mail"
	  = "daemon,mail.* /var\n"

	(* creating an entry *)
	test Syslog.lns put "" after
	  set "/entry/selector/facility" "daemon" ;
	  set "/entry/selector/level" "info" ;
	  set "/entry/action/file" "/var"
	  = "daemon.info\t/var\n"

	(* inserting an entry before *)
	test Syslog.lns put "*.* /var\n" after
	  insb "entry" "/entry" ;
	  set "/entry[1]/selector/facility" "daemon" ;
	  set "/entry[1]/selector/level" "info" ;
	  set "/entry[1]/action/file" "/foo"
	  = "daemon.info /foo\n*.*\t/var\n"

	(* inserting an entry after *)
	test Syslog.lns put "*.* /var\n" after
	  insa "entry" "/entry" ;
	  set "/entry[2]/selector/facility" "daemon" ;
	  set "/entry[2]/selector/level" "info" ;
	  set "/entry[2]/action/file" "/foo"
	  = "*.* /var\ndaemon.info\t/foo\n"

	(* insert sync on a file *)
	test Syslog.lns put "*.* /var\n" after
	  insb "no_sync" "/entry/action/file"
	  = "*.* -/var\n"

	(* changing file to remote host *)
	test Syslog.lns put "*.* /var\n" after
	  rm "/entry/action/file" ;
	  set "/entry/action/protocol"  "@" ;
	  set "/entry/action/hostname" "far.far.away"
	  = "*.* @far.far.away\n"

	(* changing file to remote host *)
	test Syslog.lns put "*.* /var/lib\n" after
	  rm "/entry/action/file" ;
	  set "/entry/action/protocol"  "@@" ;
	  set "/entry/action/hostname" "far.far.away"
	  = "*.* @@far.far.away\n"

	(* changing file to * *)
	test Syslog.lns put "*.* /var\n" after
	  rm "/entry/action/file" ;
	  set "/entry/action/user" "*"
	  = "*.* *\n"

	(* changing file to users *)
	test Syslog.lns put "*.* /var\n" after
	  rm "/entry/action/file" ;
	  set "/entry/action/user[1]" "john" ;
	  set "/entry/action/user[2]" "paul" ;
	  set "/entry/action/user[3]" "george" ;
	  set "/entry/action/user[4]" "ringo"
	  = "*.* john,paul,george,ringo\n"

	(* changing file to program *)
	test Syslog.lns put "*.* /var\n" after
	  rm "/entry/action/file" ;
	  set "/entry/action/program" "/usr/bin/foo"
	  = "*.* |/usr/bin/foo\n"

	(* inserting a matching program *)
	test Syslog.lns put "" after
	  insa "program" "/" ;
	  set "/program/program" "foo"
	  = "!foo\n"

	(* inserting an entry to a matching program *)
	test Syslog.lns put "!foo\n" after
	  set "/program/entry/selector/facility" "*" ;
	  set "/program/entry/selector/level" "*" ;
	  set "/program/entry/action/file" "/foo"
	  = "!foo\n*.*\t/foo\n"

	(* inserting a matching hostname *)
	test Syslog.lns put "" after
	  insa "hostname" "/" ;
	  set "/hostname/hostname" "foo.foo.away"
	  = "+foo.foo.away\n"

	(* inserting an entry to a matching hostname *)
	test Syslog.lns put "+foo.foo.away\n" after
	  set "/hostname/entry/selector/facility" "*" ;
	  set "/hostname/entry/selector/level" "*" ;
	  set "/hostname/entry/action/file" "/foo"
	  = "+foo.foo.away\n*.*\t/foo\n"

	(* inserting a reverse matching hostname *)
	test Syslog.lns put "" after
	  insa "hostname" "/" ;
	  set "/hostname/reverse" "" ;
	  set "/hostname/hostname" "foo.foo.away"
	  = "-foo.foo.away\n"

        (* tokens can contain capital letters *)
        test Syslog.lns get "LOCAL5.*    -/var/log/foo.log\n" =
          { "entry"
            { "selector"
              { "facility" = "LOCAL5" }
              { "level" = "*" }
            }
            { "action"
              { "no_sync" }
              { "file" = "/var/log/foo.log" }
            }
          }

    (* test for commented out statements *)
    test Syslog.lns put "" after
       set "#comment" "!pppd" = "# !pppd\n"

    (* allow space before comments *)
    test Syslog.lns get "  \t# space comment\n" =
      { "#comment" = "space comment" }

    test Syslog.lns get "include /etc/syslog.d\n" =
      { "include" = "/etc/syslog.d" }