Gecko [ thecigaretteboxes.com ]

Name	Size	Permission
test_access.aug	3.44 KB	-rw-r--r--
test_activemq_conf.aug	758 B	-rw-r--r--
test_activemq_xml.aug	1.63 KB	-rw-r--r--
test_afs_cellalias.aug	1.31 KB	-rw-r--r--
test_aliases.aug	2.99 KB	-rw-r--r--
test_anaconda.aug	2.07 KB	-rw-r--r--
test_anacron.aug	1.21 KB	-rw-r--r--
test_approx.aug	1.44 KB	-rw-r--r--
test_apt_update_manager.aug	1.12 KB	-rw-r--r--
test_aptcacherngsecurity.aug	1.17 KB	-rw-r--r--
test_aptconf.aug	5.26 KB	-rw-r--r--
test_aptpreferences.aug	1.86 KB	-rw-r--r--
test_aptsources.aug	3.42 KB	-rw-r--r--
test_authorized_keys.aug	4.47 KB	-rw-r--r--
test_automaster.aug	1.53 KB	-rw-r--r--
test_automounter.aug	5.2 KB	-rw-r--r--
test_avahi.aug	545 B	-rw-r--r--
test_backuppchosts.aug	623 B	-rw-r--r--
test_bbhosts.aug	3.68 KB	-rw-r--r--
test_bootconf.aug	980 B	-rw-r--r--
test_build.aug	8.12 KB	-rw-r--r--
test_cachefilesd.aug	579 B	-rw-r--r--
test_carbon.aug	2.54 KB	-rw-r--r--
test_ceph.aug	4.86 KB	-rw-r--r--
test_cgconfig.aug	5.93 KB	-rw-r--r--
test_cgrules.aug	903 B	-rw-r--r--
test_channels.aug	4.72 KB	-rw-r--r--
test_chrony.aug	5.92 KB	-rw-r--r--
test_clamav.aug	8.48 KB	-rw-r--r--
test_cobblermodules.aug	620 B	-rw-r--r--
test_cobblersettings.aug	1.34 KB	-rw-r--r--
test_collectd.aug	1.3 KB	-rw-r--r--
test_cpanel.aug	1.62 KB	-rw-r--r--
test_cron.aug	1.96 KB	-rw-r--r--
test_cron_user.aug	779 B	-rw-r--r--
test_crypttab.aug	1.28 KB	-rw-r--r--
test_csv.aug	1.56 KB	-rw-r--r--
test_cups.aug	13.93 KB	-rw-r--r--
test_cyrus_imapd.aug	1.33 KB	-rw-r--r--
test_darkice.aug	575 B	-rw-r--r--
test_debctrl.aug	13.94 KB	-rw-r--r--
test_desktop.aug	1.23 KB	-rw-r--r--
test_devfsrules.aug	2.17 KB	-rw-r--r--
test_device_map.aug	797 B	-rw-r--r--
test_dhclient.aug	4.69 KB	-rw-r--r--
test_dhcpd.aug	15.07 KB	-rw-r--r--
test_dns_zone.aug	10.33 KB	-rw-r--r--
test_dnsmasq.aug	1.19 KB	-rw-r--r--
test_dovecot.aug	22.3 KB	-rw-r--r--
test_dpkg.aug	322 B	-rw-r--r--
test_dput.aug	3.37 KB	-rw-r--r--
test_erlang.aug	2.58 KB	-rw-r--r--
test_ethers.aug	1.4 KB	-rw-r--r--
test_exports.aug	1.69 KB	-rw-r--r--
test_fai_diskconfig.aug	15.04 KB	-rw-r--r--
test_fonts.aug	19.45 KB	-rw-r--r--
test_fstab.aug	4.45 KB	-rw-r--r--
test_fuse.aug	590 B	-rw-r--r--
test_gdm.aug	620 B	-rw-r--r--
test_getcap.aug	3.77 KB	-rw-r--r--
test_group.aug	1.09 KB	-rw-r--r--
test_grub.aug	10.04 KB	-rw-r--r--
test_grubenv.aug	2.44 KB	-rw-r--r--
test_gshadow.aug	359 B	-rw-r--r--
test_gtkbookmarks.aug	820 B	-rw-r--r--
test_host_conf.aug	834 B	-rw-r--r--
test_hostname.aug	103 B	-rw-r--r--
test_hosts.aug	1.78 KB	-rw-r--r--
test_hosts_access.aug	6.12 KB	-rw-r--r--
test_htpasswd.aug	468 B	-rw-r--r--
test_httpd.aug	16.32 KB	-rw-r--r--
test_inetd.aug	4.51 KB	-rw-r--r--
test_inifile.aug	11.64 KB	-rw-r--r--
test_inittab.aug	1.82 KB	-rw-r--r--
test_inputrc.aug	5.13 KB	-rw-r--r--
test_interfaces.aug	3.65 KB	-rw-r--r--
test_iproute2.aug	945 B	-rw-r--r--
test_iptables.aug	7.39 KB	-rw-r--r--
test_iscsid.aug	2.45 KB	-rw-r--r--
test_jaas.aug	5.35 KB	-rw-r--r--
test_jettyrealm.aug	982 B	-rw-r--r--
test_jmxaccess.aug	637 B	-rw-r--r--
test_jmxpassword.aug	653 B	-rw-r--r--
test_json.aug	17.26 KB	-rw-r--r--
test_kdump.aug	2.84 KB	-rw-r--r--
test_keepalived.aug	14.33 KB	-rw-r--r--
test_known_hosts.aug	1.79 KB	-rw-r--r--
test_koji.aug	1.65 KB	-rw-r--r--
test_krb5.aug	28.56 KB	-rw-r--r--
test_ldap.aug	398 B	-rw-r--r--
test_ldif.aug	3.88 KB	-rw-r--r--
test_ldso.aug	486 B	-rw-r--r--
test_lightdm.aug	3.98 KB	-rw-r--r--
test_limits.aug	924 B	-rw-r--r--
test_login_defs.aug	528 B	-rw-r--r--
test_logrotate.aug	7.95 KB	-rw-r--r--
test_logwatch.aug	322 B	-rw-r--r--
test_lokkit.aug	2.1 KB	-rw-r--r--
test_lvm.aug	4.56 KB	-rw-r--r--
test_mailscanner.aug	32.15 KB	-rw-r--r--
test_mailscanner_rules.aug	2.6 KB	-rw-r--r--
test_masterpasswd.aug	3.21 KB	-rw-r--r--
test_mcollective.aug	1.2 KB	-rw-r--r--
test_mdadm_conf.aug	2.52 KB	-rw-r--r--
test_memcached.aug	1.15 KB	-rw-r--r--
test_mke2fs.aug	2.13 KB	-rw-r--r--
test_modprobe.aug	4.07 KB	-rw-r--r--
test_modules.aug	229 B	-rw-r--r--
test_modules_conf.aug	3.23 KB	-rw-r--r--
test_mongodbserver.aug	775 B	-rw-r--r--
test_monit.aug	1.03 KB	-rw-r--r--
test_multipath.aug	6.5 KB	-rw-r--r--
test_mysql.aug	8.75 KB	-rw-r--r--
test_nagioscfg.aug	2.95 KB	-rw-r--r--
test_nagiosobjects.aug	1.69 KB	-rw-r--r--
test_netmasks.aug	640 B	-rw-r--r--
test_networkmanager.aug	1.27 KB	-rw-r--r--
test_networks.aug	1.16 KB	-rw-r--r--
test_nginx.aug	7.64 KB	-rw-r--r--
test_nrpe.aug	2.13 KB	-rw-r--r--
test_nslcd.aug	12.84 KB	-rw-r--r--
test_nsswitch.aug	1.54 KB	-rw-r--r--
test_ntp.aug	5.09 KB	-rw-r--r--
test_ntpd.aug	1.87 KB	-rw-r--r--
test_odbc.aug	1.62 KB	-rw-r--r--
test_opendkim.aug	5.66 KB	-rw-r--r--
test_openshift_config.aug	3.64 KB	-rw-r--r--
test_openshift_http.aug	2.16 KB	-rw-r--r--
test_openshift_quickstarts.aug	12.42 KB	-rw-r--r--
test_openvpn.aug	28.09 KB	-rw-r--r--
test_oz.aug	611 B	-rw-r--r--
test_pagekite.aug	2.75 KB	-rw-r--r--
test_pam.aug	2.13 KB	-rw-r--r--
test_pamconf.aug	1010 B	-rw-r--r--
test_passwd.aug	2.44 KB	-rw-r--r--
test_pbuilder.aug	531 B	-rw-r--r--
test_pg_hba.aug	6.1 KB	-rw-r--r--
test_pgbouncer.aug	1.97 KB	-rw-r--r--
test_php.aug	1.4 KB	-rw-r--r--
test_phpvars.aug	1.63 KB	-rw-r--r--
test_postfix_access.aug	1.52 KB	-rw-r--r--
test_postfix_main.aug	1.03 KB	-rw-r--r--
test_postfix_master.aug	3.77 KB	-rw-r--r--
test_postfix_passwordmap.aug	1.31 KB	-rw-r--r--
test_postfix_sasl_smtpd.aug	530 B	-rw-r--r--
test_postfix_transport.aug	1.58 KB	-rw-r--r--
test_postfix_virtual.aug	1.23 KB	-rw-r--r--
test_postgresql.aug	8.07 KB	-rw-r--r--
test_properties.aug	3.51 KB	-rw-r--r--
test_protocols.aug	1.3 KB	-rw-r--r--
test_puppet.aug	547 B	-rw-r--r--
test_puppet_auth.aug	1.1 KB	-rw-r--r--
test_puppetfile.aug	4.45 KB	-rw-r--r--
test_puppetfileserver.aug	949 B	-rw-r--r--
test_pylonspaste.aug	1.73 KB	-rw-r--r--
test_pythonpaste.aug	1.23 KB	-rw-r--r--
test_qpid.aug	1.3 KB	-rw-r--r--
test_quote.aug	8.66 KB	-rw-r--r--
test_rabbitmq.aug	3.66 KB	-rw-r--r--
test_radicale.aug	1.04 KB	-rw-r--r--
test_rancid.aug	706 B	-rw-r--r--
test_redis.aug	6.17 KB	-rw-r--r--
test_reprepro_uploaders.aug	4.68 KB	-rw-r--r--
test_resolv.aug	1.46 KB	-rw-r--r--
test_rhsm.aug	4.46 KB	-rw-r--r--
test_rmt.aug	826 B	-rw-r--r--
test_rsyncd.aug	1.27 KB	-rw-r--r--
test_rsyslog.aug	6.08 KB	-rw-r--r--
test_rtadvd.aug	859 B	-rw-r--r--
test_rx.aug	3.33 KB	-rw-r--r--
test_samba.aug	3.52 KB	-rw-r--r--
test_schroot.aug	2.25 KB	-rw-r--r--
test_securetty.aug	636 B	-rw-r--r--
test_semanage.aug	1.71 KB	-rw-r--r--
test_services.aug	2.87 KB	-rw-r--r--
test_shadow.aug	2.01 KB	-rw-r--r--
test_shells.aug	348 B	-rw-r--r--
test_shellvars.aug	19.05 KB	-rw-r--r--
test_shellvars_list.aug	4.18 KB	-rw-r--r--
test_simplelines.aug	724 B	-rw-r--r--
test_simplevars.aug	994 B	-rw-r--r--
test_sip_conf.aug	3.61 KB	-rw-r--r--
test_slapd.aug	3.03 KB	-rw-r--r--
test_smbusers.aug	664 B	-rw-r--r--
test_solaris_system.aug	2.48 KB	-rw-r--r--
test_soma.aug	424 B	-rw-r--r--
test_spacevars.aug	431 B	-rw-r--r--
test_splunk.aug	2.96 KB	-rw-r--r--
test_squid.aug	5.09 KB	-rw-r--r--
test_ssh.aug	3.12 KB	-rw-r--r--
test_sshd.aug	5.04 KB	-rw-r--r--
test_sssd.aug	896 B	-rw-r--r--
test_star.aug	1.56 KB	-rw-r--r--
test_strongswan.aug	2.57 KB	-rw-r--r--
test_stunnel.aug	791 B	-rw-r--r--
test_subversion.aug	3.06 KB	-rw-r--r--
test_sudoers.aug	9.9 KB	-rw-r--r--
test_sysconfig.aug	4.1 KB	-rw-r--r--
test_sysconfig_route.aug	522 B	-rw-r--r--
test_sysctl.aug	1.34 KB	-rw-r--r--
test_syslog.aug	11.05 KB	-rw-r--r--
test_systemd.aug	7.95 KB	-rw-r--r--
test_termcap.aug	16.69 KB	-rw-r--r--
test_thttpd.aug	1.17 KB	-rw-r--r--
test_tmpfiles.aug	9.94 KB	-rw-r--r--
test_toml.aug	7.92 KB	-rw-r--r--
test_trapperkeeper.aug	4.15 KB	-rw-r--r--
test_tuned.aug	259 B	-rw-r--r--
test_up2date.aug	6.23 KB	-rw-r--r--
test_updatedb.aug	855 B	-rw-r--r--
test_util.aug	428 B	-rw-r--r--
test_vfstab.aug	2.79 KB	-rw-r--r--
test_vmware_config.aug	1.7 KB	-rw-r--r--
test_vsftpd.aug	2.49 KB	-rw-r--r--
test_webmin.aug	195 B	-rw-r--r--
test_wine.aug	5.58 KB	-rw-r--r--
test_xendconfsxp.aug	7.74 KB	-rw-r--r--
test_xinetd.aug	2.78 KB	-rw-r--r--
test_xml.aug	20.04 KB	-rw-r--r--
test_xorg.aug	2.51 KB	-rw-r--r--
test_xymon.aug	4.29 KB	-rw-r--r--
test_xymon_alerting.aug	7.44 KB	-rw-r--r--
test_yaml.aug	1.34 KB	-rw-r--r--
test_yum.aug	7.28 KB	-rw-r--r--

Code Editor : test_dhcpd.aug

module Test_dhcpd =

let lns = Dhcpd.lns

let conf = "#
# Sample configuration file for ISC dhcpd for Debian
#
# Attention: If /etc/ltsp/dhcpd.conf exists, that will be used as
# configuration file instead of this file.
#
# $Id: dhcpd.conf,v 1.1.1.1 2002/05/21 00:07:44 peloy Exp $
#

# The ddns-updates-style parameter controls whether or not the server will
# attempt to do a DNS update when a lease is confirmed. We default to the
# behavior of the version 2 packages ('none', since DHCP v2 didn't
# have support for DDNS.)
ddns-update-style none;

# option definitions common to all supported networks...
option domain-name \"example.org\";
option domain-name-servers ns1.example.org, ns2.example.org;

default-lease-time 600;
max-lease-time 7200;

# If this DHCP server is the official DHCP server for the local
# network, the authoritative directive should be uncommented.
authoritative;

allow booting;
allow bootp;

# Use this to send dhcp log messages to a different log file (you also
# have to hack syslog.conf to complete the redirection).
log-facility local7;

# No service will be given on this subnet, but declaring it helps the
# DHCP server to understand the network topology.

subnet 10.152.187.0 netmask 255.255.255.0 {
}

# This is a very basic subnet declaration.

subnet 10.254.239.0 netmask 255.255.255.224 {
  range 10.254.239.10 10.254.239.20;
  option routers rtr-239-0-1.example.org, rtr-239-0-2.example.org;
}

# This declaration allows BOOTP clients to get dynamic addresses,
# which we don't really recommend.

subnet 10.254.239.32 netmask 255.255.255.224 {
  range dynamic-bootp 10.254.239.40 10.254.239.60;
  option broadcast-address 10.254.239.31;
  option routers rtr-239-32-1.example.org;
}

# A slightly different configuration for an internal subnet.
subnet 10.5.5.0 netmask 255.255.255.224 {
  range 10.5.5.26 10.5.5.30;
  option domain-name-servers ns1.internal.example.org;
  option domain-name \"internal.example.org\";
  option routers 10.5.5.1;
  option broadcast-address 10.5.5.31;
  default-lease-time 600;
  max-lease-time 7200;
}

# Hosts which require special configuration options can be listed in
# host statements.   If no address is specified, the address will be
# allocated dynamically (if possible), but the host-specific information
# will still come from the host declaration.

host passacaglia {
  hardware ethernet 0:0:c0:5d:bd:95;
  filename \"vmunix.passacaglia\";
  server-name \"toccata.fugue.com\";
}

# Fixed IP addresses can also be specified for hosts.   These addresses
# should not also be listed as being available for dynamic assignment.
# Hosts for which fixed IP addresses have been specified can boot using
# BOOTP or DHCP.   Hosts for which no fixed address is specified can only
# be booted with DHCP, unless there is an address range on the subnet
# to which a BOOTP client is connected which has the dynamic-bootp flag
# set.
host fantasia {
  hardware ethernet 08:00:07:26:c0:a5;
  fixed-address fantasia.fugue.com;
}

# You can declare a class of clients and then do address allocation
# based on that.   The example below shows a case where all clients
# in a certain class get addresses on the 10.17.224/24 subnet, and all
# other clients get addresses on the 10.0.29/24 subnet.

#class \"foo\" {
#  match if substring (option vendor-class-identifier, 0, 4) = \"SUNW\";
#}

shared-network 224-29 {
  subnet 10.17.224.0 netmask 255.255.255.0 {
    option routers rtr-224.example.org;
  }
  subnet 10.0.29.0 netmask 255.255.255.0 {
    option routers rtr-29.example.org;
  }
  pool {
    allow members of \"foo\";
    range 10.17.224.10 10.17.224.250;
  }
  pool {
    deny members of \"foo\";
    range 10.0.29.10 10.0.29.230;
  }
}
"

test lns get "authoritative;" = { "authoritative" }
test lns get "ddns-update-style none;" = { "ddns-update-style" = "none" }
test lns get "option domain-name \"example.org\";" =
  { "option"
    { "domain-name"
      { "arg" = "example.org" }
    }
  }

test lns get "option domain-name-servers ns1.example.org, ns2.example.org;" =
  { "option"
    { "domain-name-servers"
      { "arg" = "ns1.example.org" }
      { "arg" = "ns2.example.org" }
    }
  }

test lns get "default-lease-time 600;" = { "default-lease-time" = "600" }
test lns get "range 10.254.239.60;" =
{ "range"
    { "to" = "10.254.239.60" }
  }

test lns get "range dynamic-bootp 10.254.239.60;" =
  { "range"
    { "flag" = "dynamic-bootp" }
    { "to" = "10.254.239.60" }
  }

test lns get "range dynamic-bootp 10.254.239.40 10.254.239.60;" =
  { "range"
    { "flag" = "dynamic-bootp" }
    { "from" = "10.254.239.40" }
    { "to" = "10.254.239.60" }
  }

test lns get "subnet 10.152.187.0 netmask 255.255.255.0 {}\n" =
  { "subnet"
    { "network" = "10.152.187.0" }
    { "netmask" = "255.255.255.0" }
  }

test lns get " pool {
    pool {

}
}
" =
  { "pool"
    { "pool" }
  }

test lns get "group { host some-host {hardware ethernet 00:00:aa:bb:cc:dd;
fixed-address 10.1.1.1;}}" =
  { "group"
    { "host" = "some-host"
      { "hardware"
        { "type" = "ethernet" }
        { "address" = "00:00:aa:bb:cc:dd" }
      }
      { "fixed-address" = "10.1.1.1" }
    }
  }

test lns get "group fan-tas_tic { }" =
  { "group" = "fan-tas_tic" }

test Dhcpd.stmt_secu get "allow members of \"foo\";" =  { "allow-members-of" = "foo" }
test Dhcpd.stmt_secu get "allow booting;" =  { "allow" = "booting" }
test Dhcpd.stmt_secu get "allow bootp;" =  { "allow" = "bootp" }
test Dhcpd.stmt_option get "option voip-boot-server code 66 = string;" =
  { "rfc-code"
    { "label" = "voip-boot-server" }
    { "code" = "66" }
    { "type" = "string" }
  }

test Dhcpd.stmt_option get "option special-option code 25 = array of string;" =
  { "rfc-code"
    { "label" = "special-option" }
    { "code" = "25" }
    { "type" = "array of string" }
  }

test Dhcpd.stmt_option get "option special-option code 25 = integer 32;" =
  { "rfc-code"
    { "label" = "special-option" }
    { "code" = "25" }
    { "type" = "integer 32" }
  }

test Dhcpd.stmt_option get "option special-option code 25 = array of integer 32;" =
  { "rfc-code"
    { "label" = "special-option" }
    { "code" = "25" }
    { "type" = "array of integer 32" }
  }

test Dhcpd.lns get "authoritative;
log-facility local7;
ddns-update-style none;
default-lease-time 21600;
max-lease-time 43200;

# Additional options for VOIP
option voip-boot-server code 66 = string;
option voip-vlan-id code 128 = string;
" =
  { "authoritative" }
  { "log-facility" = "local7" }
  { "ddns-update-style" = "none" }
  { "default-lease-time" = "21600" }
  { "max-lease-time" = "43200"
    { "#comment" = "Additional options for VOIP" }
  }
  { "rfc-code"
    { "label" = "voip-boot-server" }
    { "code" = "66" }
    { "type" = "string" }
  }
  { "rfc-code"
    { "label" = "voip-vlan-id" }
    { "code" = "128" }
    { "type" = "string" }
  }

test Dhcpd.lns get "
option domain-name-servers 10.1.1.1, 10.11.2.1, 10.1.3.1;
next-server 10.1.1.1;

failover peer \"redondance01\" {
         primary;
         address 10.1.1.1;
         port 647;
         peer address 10.1.1.1;
         peer port 647;
         max-response-delay 20;
         max-unacked-updates 10;
         mclt 3600;         #comment.
         split 128;         #comment.
         load balance max seconds 3;
       }
" =
  {  }
  { "option"
    { "domain-name-servers"
      { "arg" = "10.1.1.1" }
      { "arg" = "10.11.2.1" }
      { "arg" = "10.1.3.1" }
    }
  }
  { "next-server" = "10.1.1.1" }
  { "failover peer" = "redondance01"
    { "primary" }
    { "address" = "10.1.1.1" }
    { "port" = "647" }
    { "peer address" = "10.1.1.1" }
    { "peer port" = "647" }
    { "max-response-delay" = "20" }
    { "max-unacked-updates" = "10" }
    { "mclt" = "3600"
      { "#comment" = "comment." }
    }
    { "split" = "128"
      { "#comment" = "comment." }
    }
    { "load balance max seconds" = "3" }
  }

(* test get and put for record types *)
let record_test = "option test_records code 123 = { string, ip-address, integer 32, ip6-address, domain-list };"

test Dhcpd.lns get record_test =
 { "rfc-code"
   { "label" = "test_records" }
   { "code" = "123" }
     { "record"
        { "1" = "string" }
        { "2" = "ip-address" }
        { "3" = "integer 32" }
        { "4" = "ip6-address" }
        { "5" = "domain-list" }
     }
 }

test Dhcpd.lns put record_test after set "/rfc-code[1]/code" "124" = 
  "option test_records code 124 = { string, ip-address, integer 32, ip6-address, domain-list };"

test Dhcpd.lns get "
option CallManager code 150 = ip-address;
option slp-directory-agent true 10.1.1.1, 10.2.2.2;
option slp-service-scope true \"SLP-GLOBAL\";
option nds-context \"EXAMPLE\";
option nds-tree-name \"EXAMPLE\";
" =
  {  }
  { "rfc-code"
    { "label" = "CallManager" }
    { "code" = "150" }
    { "type" = "ip-address" }
  }
  { "option"
    { "slp-directory-agent" = "true"
      { "arg" = "10.1.1.1" }
      { "arg" = "10.2.2.2" }
    }
  }
  { "option"
    { "slp-service-scope" = "true"
      { "arg" = "SLP-GLOBAL" }
    }
  }
  { "option"
    { "nds-context"
      { "arg" = "EXAMPLE" }
    }
  }
  { "option"
    { "nds-tree-name"
      { "arg" = "EXAMPLE" }
    }
  }

test Dhcpd.lns get "option voip-vlan-id \"VLAN=1234;\";" =
  { "option"
    { "voip-vlan-id"
      { "arg" = "VLAN=1234;" }
    }
  }

test Dhcpd.lns get "option domain-name \"x.example.com y.example.com z.example.com\";" =
  { "option"
    { "domain-name"
      { "arg" = "x.example.com y.example.com z.example.com" }
    }
  }

test Dhcpd.lns get "include \"/etc/dhcpd.master\";" =
  { "include" = "/etc/dhcpd.master" }

test Dhcpd.lns put "\n" after set "/include" "/etc/dhcpd.master" =
  "\ninclude \"/etc/dhcpd.master\";\n"

test Dhcpd.fct_args get "(option dhcp-client-identifier, 1, 3)" =
  { "args"
    { "arg" = "option dhcp-client-identifier" }
    { "arg" = "1" }
    { "arg" = "3" }
  }

test Dhcpd.stmt_match get "match if substring (option dhcp-client-identifier, 1, 3) = \"RAS\";" =
  { "match"
    { "function" = "substring"
      { "args"
        { "arg" = "option dhcp-client-identifier" }
        { "arg" = "1" }
        { "arg" = "3" }
      }
    }
    { "value" = "RAS" }
  }

test Dhcpd.stmt_match get "match if suffix (option dhcp-client-identifier, 4) = \"RAS\";" =
  { "match"
    { "function" = "suffix"
      { "args"
        { "arg" = "option dhcp-client-identifier" }
        { "arg" = "4" }
      }
    }
    { "value" = "RAS" }
  }

test Dhcpd.stmt_match get "match if option vendor-class-identifier=\"RAS\";" =
  { "match"
    { "option" = "vendor-class-identifier"
      { "value" = "RAS" }
    }
  }

test Dhcpd.lns get "match pick-first-value (option dhcp-client-identifier, hardware);" =
  { "match"
    { "function" = "pick-first-value"
      { "args"
        { "arg" = "option dhcp-client-identifier" }
        { "arg" = "hardware"  }
      }
    }
  }

test Dhcpd.fct_args get "(16, 32, \"\", substring(hardware, 0, 4))" =
  { "args"
    { "arg" = "16" }
    { "arg" = "32" }
    { "arg" = "\"\"" }
    { "arg" = "substring(hardware, 0, 4)" }
  }

test Dhcpd.stmt_match get "match if binary-to-ascii(16, 32, \"\", substring(hardware, 0, 4)) = \"1525400\";" =
  { "match"
    { "function" = "binary-to-ascii"
      { "args"
        { "arg" = "16" }
        { "arg" = "32" }
        { "arg" = "\"\"" }
        { "arg" = "substring(hardware, 0, 4)" }
      }
    }
    { "value" = "1525400" }
  }

test Dhcpd.lns get "subclass allocation-class-1 1:8:0:2b:4c:39:ad;" =
  { "subclass"
    { "name" = "allocation-class-1" }
    { "value" = "1:8:0:2b:4c:39:ad" }
  }

test Dhcpd.lns get "subclass \"allocation-class-1\" 1:8:0:2b:4c:39:ad;" =
  { "subclass"
    { "name" = "allocation-class-1" }
    { "value" = "1:8:0:2b:4c:39:ad" }
  }

test Dhcpd.lns get "subclass \"quoted class\" \"quoted value\";" =
  { "subclass"
    { "name" = "quoted class" }
    { "value" = "quoted value" }
  }

(* overall test *)
test Dhcpd.lns put conf after rm "/x" = conf

(* bug #293: primary should support argument *)
let input293 = "zone EXAMPLE.ORG. {
  primary 127.0.0.1;
}"

test Dhcpd.lns get input293 = 
  { "zone" = "EXAMPLE.ORG."
    { "primary" = "127.0.0.1" }
  }

(* bug #311: filename should be quoted *)
let input311 = "subnet 172.16.0.0 netmask 255.255.255.0 {
filename \"pxelinux.0\";
}"

test Dhcpd.lns put "subnet 172.16.0.0 netmask 255.255.255.0 {
}" after
  set "subnet/filename" "pxelinux.0" = input311

(* GH issue #34: support conditional structures *)
let gh34_empty = "if exists dhcp-parameter-request-list {
}\n"

test Dhcpd.lns get gh34_empty =
  { "@if" = "exists dhcp-parameter-request-list" }

let gh34_empty_multi = "subnet 192.168.100.0 netmask 255.255.255.0 {
 if true {
 } elsif false {
 } else {
 }
}\n"

test Dhcpd.lns get gh34_empty_multi =
  { "subnet"
    { "network" = "192.168.100.0" }
    { "netmask" = "255.255.255.0" }
    { "@if" = "true"
      { "@elsif" = "false" }
      { "@else" } }
  }

let gh34_simple = "if exists dhcp-parameter-request-list {
  default-lease-time 600;
  } else {
default-lease-time 200;
}\n"

test Dhcpd.lns get gh34_simple =
  { "@if" = "exists dhcp-parameter-request-list"
    { "default-lease-time" = "600" }
    { "@else"
      { "default-lease-time" = "200" } } }

test Dhcpd.lns get "omapi-key fookey;" =
  { "omapi-key" = "fookey" }

(* almost all DHCP groups should support braces starting on the next line *)
test Dhcpd.lns get "class introduction
{
}" =
  { "class" = "introduction" }

(* equals should work the same *)
test Dhcpd.lns get "option test_records code 123 =
                             string;" =
 { "rfc-code"
   { "label" = "test_records" }
   { "code" = "123" }
   { "type" = "string" }
 }

test Dhcpd.lns get "deny members of \"Are things like () allowed?\";" =
  { "deny-members-of" = "Are things like () allowed?" }

test Dhcpd.lns get "deny unknown clients;" =
  { "deny" = "unknown clients" }
test Dhcpd.lns get "deny known-clients;" =
  { "deny" = "known-clients" }

test Dhcpd.lns get "set ClientMac = binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6));" =
  { "set" = "ClientMac"
    { "value" = "binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6))" }
  }

test Dhcpd.lns get "set myvariable = foo;" =
  { "set" = "myvariable"
    { "value" = "foo" }
  }

test Dhcpd.stmt_hardware get "hardware fddi 00:01:02:03:04:05;" =
  { "hardware"
    { "type" = "fddi" }
    { "address" = "00:01:02:03:04:05" }
  }

test Dhcpd.lns get "on commit
{
  set test = thing;
}" =
  { "on" = "commit"
    { "set" = "test"
      { "value" = "thing" }
    }
  }

(* key block get/put/set test *)
let key_tests = "key sample {
    algorithm hmac-md5;
    secret \"secret==\";
}

key \"interesting\" { };

key \"third key\" {
    secret \"two==\";
}"

test Dhcpd.lns get key_tests =
  { "key_block" = "sample"
    { "algorithm"  = "hmac-md5" }
    { "secret" = "secret==" }
  }
  { "key_block" = "interesting" }
  { "key_block" = "third key"
    { "secret" = "two==" }
  }

test Dhcpd.lns put key_tests after set "/key_block[1]" "sample2" =
  "key sample2 {
    algorithm hmac-md5;
    secret \"secret==\";
}

key \"interesting\" { };

key \"third key\" {
    secret \"two==\";
}"

test Dhcpd.lns get "group \"hello\" { }" =
  { "group" = "hello" }

test Dhcpd.lns get "class \"testing class with spaces and quotes and ()\" {}" =
  { "class" = "testing class with spaces and quotes and ()" }

${this.title}

Code Editor : test_dhcpd.aug