404

[ Avaa Bypassed ]




Upload:

Command:

botdev@3.21.186.117: ~ $
(*
Module: Test_IniFile
  Provides unit tests and examples for the <IniFile> module.

About: Tests to run

   The tests are run with all combinations of the following
   three parameters:

   > separator   :  (a) default (/[:=]/ "=") ;   (b) "=" "="
   > comment     :  (c) default (/[;#]/ ";") ;   (d) ";" ";"
   > empty lines :  (e) default              ;   (f) noempty

*)

module Test_IniFile =

  (* ALL TESTS TO RUN *)


  (* Group: TEST a/c/e *)
  (* Variable: comment_ace *)
  let comment_ace = IniFile.comment IniFile.comment_re IniFile.comment_default
  (* Variable: sep_ace *)
  let sep_ace     = IniFile.sep IniFile.sep_re IniFile.sep_default
  (* Variable: entry_ace *)
  let entry_ace   = IniFile.entry IniFile.entry_re sep_ace comment_ace
  (* Variable: title_ace *)
  let title_ace   = IniFile.title IniFile.record_re
  (* Variable: record_ace *)
  let record_ace  = IniFile.record title_ace entry_ace
  (* Variable: lns_ace *)
  let lns_ace     = IniFile.lns record_ace comment_ace
  (* Variable: conf_ace *)
  let conf_ace    = "# comment with sharp

[section1]
test_ace = value # end of line comment
test_ace =
test_ace = \"value with spaces\"
; comment with colon

"
  (* Test: lns_ace
      Testing the a/c/e combination *)
  test lns_ace get conf_ace =
      { "#comment" = "comment with sharp" }
      {}
      { "section1"
          { "test_ace" = "value"
	     { "#comment" = "end of line comment" } }
	  { "test_ace" }
          { "test_ace" = "value with spaces" }
	  { "#comment"  = "comment with colon" }
	  {} }

  test lns_ace put conf_ace after
    set "section1/foo" "yes" = "# comment with sharp

[section1]
test_ace = value # end of line comment
test_ace =
test_ace = \"value with spaces\"
; comment with colon

foo=yes
"

  (* Test: lns_ace
       Quotes can appear within bare values *)
  test lns_ace get "[section]\ntest_ace = value \"with quotes\" inside\n" =
  { "section" { "test_ace" = "value \"with quotes\" inside" } }

  (* Group: TEST a/c/f *)
  (* Variable: comment_acf *)
  let comment_acf = IniFile.comment IniFile.comment_re IniFile.comment_default
  (* Variable: sep_acf *)
  let sep_acf     = IniFile.sep IniFile.sep_re IniFile.sep_default
  (* Variable: entry_acf *)
  let entry_acf   = IniFile.entry IniFile.entry_re sep_acf comment_acf
  (* Variable: title_acf *)
  let title_acf   = IniFile.title IniFile.record_re
  (* Variable: record_acf *)
  let record_acf  = IniFile.record_noempty title_acf entry_acf
  (* Variable: lns_acf *)
  let lns_acf     = IniFile.lns_noempty record_acf comment_acf
  (* Variable: conf_acf *)
  let conf_acf   = "# comment with sharp
[section1]
test_acf = value
test_acf =
test_acf : value2 # end of line comment
; comment with colon
"
  (* Test: lns_acf
      Testing the a/c/f combination *)
  test lns_acf get conf_acf =
      { "#comment" = "comment with sharp" }
      { "section1"
         { "test_acf" = "value" }
	 { "test_acf" }
         { "test_acf" = "value2"
	    { "#comment" = "end of line comment" } }
	 { "#comment"  = "comment with colon" } }


  (* Group: TEST a/d/e *)
  (* Variable: comment_ade *)
  let comment_ade = IniFile.comment ";" ";"
  (* Variable: sep_ade *)
  let sep_ade     = IniFile.sep IniFile.sep_re IniFile.sep_default
  (* Variable: entry_ade *)
  let entry_ade   = IniFile.entry IniFile.entry_re sep_ade comment_ade
  (* Variable: title_ade *)
  let title_ade   = IniFile.title IniFile.record_re
  (* Variable: record_ade *)
  let record_ade  = IniFile.record title_ade entry_ade
  (* Variable: lns_ade *)
  let lns_ade     = IniFile.lns record_ade comment_ade
  (* Variable: conf_ade *)
  let conf_ade    = "; a first comment with colon
[section1]
test_ade = value
test_ade : value2 ; end of line comment
; comment with colon

test_ade =
"
  (* Test: lns_ade
      Testing the a/d/e combination *)
   test lns_ade get conf_ade =
      { "#comment" = "a first comment with colon" }
      { "section1"
         { "test_ade" = "value" }
         { "test_ade" = "value2"
	    { "#comment" = "end of line comment" } }
	 { "#comment"  = "comment with colon" }
	 {}
	 { "test_ade" } }


  (* Group: TEST a/d/f *)
  (* Variable: comment_adf *)
  let comment_adf = IniFile.comment ";" ";"
  (* Variable: sep_adf *)
  let sep_adf     = IniFile.sep IniFile.sep_re IniFile.sep_default
  (* Variable: entry_adf *)
  let entry_adf   = IniFile.entry IniFile.entry_re sep_adf comment_adf
  (* Variable: title_adf *)
  let title_adf   = IniFile.title IniFile.record_re
  (* Variable: record_adf *)
  let record_adf  = IniFile.record_noempty title_adf entry_adf
  (* Variable: lns_adf *)
  let lns_adf     = IniFile.lns_noempty record_adf comment_adf
  (* Variable: conf_adf *)
  let conf_adf    = "; a first comment with colon
[section1]
test_adf = value
test_adf : value2 ; end of line comment
; comment with colon
test_adf =
"
  (* Test: lns_adf
      Testing the a/d/f combination *)
   test lns_adf get conf_adf =
      { "#comment" = "a first comment with colon" }
      { "section1"
         { "test_adf" = "value" }
         { "test_adf" = "value2"
	    { "#comment" = "end of line comment" } }
	 { "#comment"  = "comment with colon" }
	 { "test_adf" } }


  (* Group: TEST b/c/e *)
  (* Variable: comment_bce *)
  let comment_bce = IniFile.comment IniFile.comment_re IniFile.comment_default
  (* Variable: sep_bce *)
  let sep_bce     = IniFile.sep "=" "="
  (* Variable: entry_bce *)
  let entry_bce   = IniFile.entry IniFile.entry_re sep_bce comment_bce
  (* Variable: title_bce *)
  let title_bce   = IniFile.title IniFile.record_re
  (* Variable: record_bce *)
  let record_bce  = IniFile.record title_bce entry_bce
  (* Variable: lns_bce *)
  let lns_bce     = IniFile.lns record_bce comment_bce
  (* Variable: conf_bce *)
  let conf_bce   = "# comment with sharp

[section1]
test_bce = value # end of line comment
; comment with colon

test_bce =
"
  (* Test: lns_bce
      Testing the b/c/e combination *)
  test lns_bce get conf_bce =
      { "#comment" = "comment with sharp" }
      {}
      { "section1"
          { "test_bce" = "value"
	     { "#comment" = "end of line comment" } }
	  { "#comment"  = "comment with colon" }
	  {}
	  { "test_bce" } }


  (* Group: TEST b/c/f *)
  (* Variable: comment_bcf *)
  let comment_bcf = IniFile.comment IniFile.comment_re IniFile.comment_default
  (* Variable: sep_bcf *)
  let sep_bcf     = IniFile.sep "=" "="
  (* Variable: entry_bcf *)
  let entry_bcf   = IniFile.entry IniFile.entry_re sep_bcf comment_bcf
  (* Variable: title_bcf *)
  let title_bcf   = IniFile.title IniFile.record_re
  (* Variable: record_bcf *)
  let record_bcf  = IniFile.record_noempty title_bce entry_bcf
  (* Variable: lns_bcf *)
  let lns_bcf     = IniFile.lns_noempty record_bce comment_bcf
  (* Variable: conf_bcf *)
  let conf_bcf   = "# conf with sharp
[section1]
test_bcf = value # end of line comment
; comment with colon
test_bcf =
"
  (* Test: lns_bcf
      Testing the b/c/f combination *)
  test lns_bcf get conf_bcf =
      { "#comment" = "conf with sharp" }
      { "section1"
          { "test_bcf" = "value"
	     { "#comment" = "end of line comment" } }
	  { "#comment"  = "comment with colon" }
	  { "test_bcf" } }


  (* Group: TEST b/d/e *)
  (* Variable: comment_bde *)
  let comment_bde = IniFile.comment ";" ";"
  (* Variable: sep_bde *)
  let sep_bde     = IniFile.sep "=" "="
  (* Variable: entry_bde *)
  let entry_bde   = IniFile.entry IniFile.entry_re sep_bde comment_bde
  (* Variable: title_bde *)
  let title_bde   = IniFile.title IniFile.record_re
  (* Variable: record_bde *)
  let record_bde  = IniFile.record title_bde entry_bde
  (* Variable: lns_bde *)
  let lns_bde     = IniFile.lns record_bde comment_bde
  (* Variable: conf_bde *)
  let conf_bde    = "; first comment with colon

[section1]
test_bde = value ; end of line comment
; comment with colon

test_bde =
"
  (* Test: lns_bde
      Testing the b/d/e combination *)
  test lns_bde get conf_bde =
      { "#comment" = "first comment with colon" }
      {}
      { "section1"
          { "test_bde" = "value"
	     { "#comment" = "end of line comment" } }
	  { "#comment"  = "comment with colon" }
	  {}
	  { "test_bde" } }


  (* Group: TEST b/d/f *)
  (* Variable: comment_bdf *)
  let comment_bdf = IniFile.comment ";" ";"
  (* Variable: sep_bdf *)
  let sep_bdf     = IniFile.sep "=" "="
  (* Variable: entry_bdf *)
  let entry_bdf   = IniFile.entry IniFile.entry_re sep_bdf comment_bdf
  (* Variable: title_bdf *)
  let title_bdf   = IniFile.title IniFile.record_re
  (* Variable: record_bdf *)
  let record_bdf  = IniFile.record_noempty title_bdf entry_bdf
  (* Variable: lns_bdf *)
  let lns_bdf     = IniFile.lns_noempty record_bdf comment_bdf
  (* Variable: conf_bdf *)
  let conf_bdf    = "; first comment with colon
[section1]
test_bdf = value ; end of line comment
; comment with colon
test_bdf =
"
  (* Test: lns_bdf
      Testing the b/d/f combination *)
  test lns_bdf get conf_bdf =
      { "#comment" = "first comment with colon" }
      { "section1"
          { "test_bdf" = "value"
	     { "#comment" = "end of line comment" } }
	  { "#comment"  = "comment with colon" }
	  { "test_bdf" } }


  (* Group: TEST multiline values *)
  (* Variable: multiline_test *)
  let multiline_test = "test_ace = val1\n  val2\n   val3\n"
  (* Variable: multiline_nl *)
  let multiline_nl = "test_ace =\n  val2\n   val3\n"
  (* Variable: multiline_ace *)
  let multiline_ace = IniFile.entry_multiline IniFile.entry_re sep_ace comment_ace
  (* Test: multiline_ace
       Testing the a/c/e combination with a multiline entry *)
  test multiline_ace get multiline_test =
      { "test_ace" = "val1\n  val2\n   val3" }
  (* Test: multiline_nl
       Multiline values can begin with a single newline *)
  test multiline_ace get multiline_nl =
      { "test_ace" = "\n  val2\n   val3" }

  (* Test: lns_ace
       Ticket #243 *)
  test lns_ace get "[section1]
ticket_243 = \"value1;value2#value3\" # end of line comment
" =
  { "section1"
    { "ticket_243" = "value1;value2#value3"
      { "#comment" = "end of line comment" }
    }
  }

  (* Group: TEST list entries *)
  (* Variable: list_test *)
  let list_test = "test_ace = val1,val2,val3 # a comment\n"
  (* Lens: list_ace *)
  let list_ace = IniFile.entry_list IniFile.entry_re sep_ace RX.word Sep.comma comment_ace
  (* Test: list_ace
       Testing the a/c/e combination with a list entry *)
  test list_ace get list_test =
  { "test_ace"
    { "1" = "val1" }
    { "2" = "val2" }
    { "3" = "val3" }
    { "#comment" = "a comment" }
  }

  (* Variable: list_nocomment_test *)
  let list_nocomment_test = "test_ace = val1,val2,val3 \n"
  (* Lens: list_nocomment_ace *)
  let list_nocomment_ace = IniFile.entry_list_nocomment IniFile.entry_re sep_ace RX.word Sep.comma
  (* Test: list_nocomment_ace
       Testing the a/c/e combination with a list entry without end-of-line comment *)
  test list_nocomment_ace get list_nocomment_test =
  { "test_ace"
    { "1" = "val1" }
    { "2" = "val2" }
    { "3" = "val3" }
  }

  (* Test: IniFile.lns_loose *)
  test IniFile.lns_loose get conf_ace =
  { "section" = ".anon"
    { "#comment" = "comment with sharp" }
    {  }
  }
  { "section" = "section1"
    { "test_ace" = "value"
      { "#comment" = "end of line comment" }
    }
    { "test_ace" }
    { "test_ace" = "value with spaces" }
    { "#comment" = "comment with colon" }
    {  }
  }

  (* Test: IniFile.lns_loose_multiline *)
  test IniFile.lns_loose_multiline get conf_ace =
  { "section" = ".anon"
    { "#comment" = "comment with sharp" }
    {  }
  }
  { "section" = "section1"
    { "test_ace" = "value"
      { "#comment" = "end of line comment" }
    }
    { "test_ace" }
    { "test_ace" = "value with spaces" }
    { "#comment" = "comment with colon" }
    {  }
  }
  
  test IniFile.lns_loose_multiline get multiline_test =
      { "section" = ".anon" { "test_ace" = "val1\n  val2\n   val3" } }


Filemanager

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