404

[ Avaa Bypassed ]




Upload:

Command:

botdev@3.21.186.117: ~ $
(*
Module: Test_Quote
  Provides unit tests and examples for the <Quote> lens.
*)

module Test_Quote =

(* View: double *)
let double = [ label "double" . Quote.double ]

(* Test: double *)
test double get "\" this is a test\"" =
  { "double" = " this is a test" }

(* View: double_opt *)
let double_opt = [ label "double_opt" . Quote.double_opt ]

(* Test: double_opt *)
test double_opt get "\"this is a test\"" =
  { "double_opt" = "this is a test" }

(* Test: double_opt *)
test double_opt get "this is a test" =
  { "double_opt" = "this is a test" }

(* Test: double_opt
   Value cannot start with a space *)
test double_opt get " this is a test" = *

(* View: single *)
let single = [ label "single" . Quote.single ]

(* Test: single *)
test single get "' this is a test'" =
  { "single" = " this is a test" }

(* View: single_opt *)
let single_opt = [ label "single_opt" . Quote.single_opt ]

(* Test: single_opt *)
test single_opt get "'this is a test'" =
  { "single_opt" = "this is a test" }

(* Test: single_opt *)
test single_opt get "this is a test" =
  { "single_opt" = "this is a test" }

(* Test: single_opt
   Value cannot start with a space *)
test single_opt get " this is a test" = *

(* View: any *)
let any = [ label "any" . Quote.any ]

(* Test: any *)
test any get "\" this is a test\"" =
  { "any" = " this is a test" }

(* Test: any *)
test any get "' this is a test'" =
  { "any" = " this is a test" }

(* View: any_opt *)
let any_opt = [ label "any_opt" . Quote.any_opt ]

(* Test: any_opt *)
test any_opt get "\"this is a test\"" =
  { "any_opt" = "this is a test" }

(* Test: any_opt *)
test any_opt get "'this is a test'" =
  { "any_opt" = "this is a test" }

(* Test: any_opt *)
test any_opt get "this is a test" =
  { "any_opt" = "this is a test" }

(* Test: any_opt
   Value cannot start with a space *)
test any_opt get " this is a test" = *

(* View: double_opt_allow_spc *)
let double_opt_allow_spc =
  let body = store /[^\n"]+/ in
  [ label "double" . Quote.do_dquote_opt body ]

(* Test: double_opt_allow_spc *)
test double_opt_allow_spc get " test with spaces " =
  { "double" = " test with spaces " }

(* Group: quote_spaces *)

(* View: quote_spaces *)
let quote_spaces =
  Quote.quote_spaces (label "spc")

(* Test: quote_spaces
     Unquoted value *)
test quote_spaces get "this" =
  { "spc" = "this" }

(* Test: quote_spaces
     double quoted value *)
test quote_spaces get "\"this\"" =
  { "spc" = "this" }

(* Test: quote_spaces
     single quoted value *)
test quote_spaces get "'this'" =
  { "spc" = "this" }

(* Test: quote_spaces
     unquoted value with spaces *)
test quote_spaces get "this that those" = *

(* Test: quote_spaces
     double quoted value with spaces *)
test quote_spaces get "\"this that those\"" =
  { "spc" = "this that those" }

(* Test: quote_spaces
     single quoted value with spaces *)
test quote_spaces get "'this that those'" =
  { "spc" = "this that those" }

(* Test: quote_spaces
     remove spaces from double-quoted value *)
test quote_spaces put "\"this that those\""
  after set "spc" "thisthat" =
  "\"thisthat\""

(* Test: quote_spaces
     remove spaces from single-quoted value *)
test quote_spaces put "'this that those'"
  after set "spc" "thisthat" =
  "'thisthat'"

(* Test: quote_spaces
     add spaces to unquoted value *)
test quote_spaces put "this"
  after set "spc" "this that those" =
  "\"this that those\""

(* Test: quote_spaces
     add spaces to double-quoted value *)
test quote_spaces put "\"this\""
  after set "spc" "this that those" =
  "\"this that those\""

(* Test: quote_spaces
     add spaces to single-quoted value *)
test quote_spaces put "'this'"
  after set "spc" "this that those" =
  "'this that those'"

(* Group: dquote_spaces *)

(* View: dquote_spaces *)
let dquote_spaces =
  Quote.dquote_spaces (label "spc")

(* Test: dquote_spaces
     Unquoted value *)
test dquote_spaces get "this" =
  { "spc" = "this" }

(* Test: dquote_spaces
     double quoted value *)
test dquote_spaces get "\"this\"" =
  { "spc" = "this" }

(* Test: dquote_spaces
     single quoted value *)
test dquote_spaces get "'this'" =
  { "spc" = "'this'" }

(* Test: dquote_spaces
     unquoted value with spaces *)
test dquote_spaces get "this that those" = *

(* Test: dquote_spaces
     double quoted value with spaces *)
test dquote_spaces get "\"this that those\"" =
  { "spc" = "this that those" }

(* Test: dquote_spaces
     single quoted value with spaces *)
test dquote_spaces get "'this that those'" = *

(* Test: dquote_spaces
     remove spaces from double-quoted value *)
test dquote_spaces put "\"this that those\""
  after set "spc" "thisthat" =
  "\"thisthat\""

(* Test: dquote_spaces
     add spaces to unquoted value *)
test dquote_spaces put "this"
  after set "spc" "this that those" =
  "\"this that those\""

(* Test: dquote_spaces
     add spaces to double-quoted value *)
test dquote_spaces put "\"this\""
  after set "spc" "this that those" =
  "\"this that those\""

(* Test: dquote_spaces
     add spaces to single-quoted value *)
test dquote_spaces put "'this'"
  after set "spc" "this that those" =
  "\"this that those\""

(* Group: squote_spaces *)

(* View: squote_spaces *)
let squote_spaces =
  Quote.squote_spaces (label "spc")

(* Test: squote_spaces
     Unquoted value *)
test squote_spaces get "this" =
  { "spc" = "this" }

(* Test: squote_spaces
     double quoted value *)
test squote_spaces get "\"this\"" =
  { "spc" = "\"this\"" }

(* Test: squote_spaces
     single quoted value *)
test squote_spaces get "'this'" =
  { "spc" = "this" }

(* Test: squote_spaces
     unquoted value with spaces *)
test squote_spaces get "this that those" = *

(* Test: squote_spaces
     double quoted value with spaces *)
test squote_spaces get "\"this that those\"" = *

(* Test: squote_spaces
     single quoted value with spaces *)
test squote_spaces get "'this that those'" =
  { "spc" = "this that those" }

(* Test: squote_spaces
     remove spaces from single-quoted value *)
test squote_spaces put "'this that those'"
  after set "spc" "thisthat" =
  "'thisthat'"

(* Test: squote_spaces
     add spaces to unquoted value *)
test squote_spaces put "this"
  after set "spc" "this that those" =
  "'this that those'"

(* Test: squote_spaces
     add spaces to double-quoted value *)
test squote_spaces put "\"this\""
  after set "spc" "this that those" =
  "'this that those'"

(* Test: squote_spaces
     add spaces to single-quoted value *)
test squote_spaces put "'this'"
  after set "spc" "this that those" =
  "'this that those'"

(* Group: nil cases *)

(* View: dquote_opt_nil *)
let dquote_opt_nil =
     let body = store Quote.double_opt_re
  in [ label "dquote_opt_nil" . Quote.do_dquote_opt_nil body ]?

(* Test: dquote_opt_nil *)
test dquote_opt_nil get "this" =
  { "dquote_opt_nil" = "this" }

(* Test: dquote_opt_nil *)
test dquote_opt_nil get "'this'" =
  { "dquote_opt_nil" = "'this'" }

(* Test: dquote_opt_nil *)
test dquote_opt_nil get "\"this\"" =
  { "dquote_opt_nil" = "this" }

(* Test: dquote_opt_nil *)
test dquote_opt_nil put ""
  after set "dquote_opt_nil" "this" =
  "this"

(* Test: dquote_opt_nil *)
test dquote_opt_nil put "\"this\""
  after set "dquote_opt_nil" "this" =
  "\"this\""

(* Test: dquote_opt_nil *)
test dquote_opt_nil put "'this'"
  after set "dquote_opt_nil" "this" =
  "this"

(* View: squote_opt_nil *)
let squote_opt_nil =
     let body = store Quote.single_opt_re
  in [ label "squote_opt_nil" . Quote.do_squote_opt_nil body ]?

(* Test: squote_opt_nil *)
test squote_opt_nil get "this" =
  { "squote_opt_nil" = "this" }

(* Test: squote_opt_nil *)
test squote_opt_nil get "'this'" =
  { "squote_opt_nil" = "this" }

(* Test: squote_opt_nil *)
test squote_opt_nil get "\"this\"" =
  { "squote_opt_nil" = "\"this\"" }

(* Test: squote_opt_nil *)
test squote_opt_nil put ""
  after set "squote_opt_nil" "this" =
  "this"

(* Test: squote_opt_nil *)
test squote_opt_nil put "\"this\""
  after set "squote_opt_nil" "this" =
  "this"

(* Test: squote_opt_nil *)
test squote_opt_nil put "\"this\""
  after set "squote_opt_nil" "this" =
  "this"

(* View: quote_opt_nil *)
let quote_opt_nil =
     let body = store Quote.any_opt_re
  in [ label "quote_opt_nil" . Quote.do_quote_opt_nil body ]?

(* Test: quote_opt_nil *)
test quote_opt_nil get "this" =
  { "quote_opt_nil" = "this" }

(* Test: quote_opt_nil *)
test quote_opt_nil get "'this'" =
  { "quote_opt_nil" = "this" }

(* Test: quote_opt_nil *)
test quote_opt_nil get "\"this\"" =
  { "quote_opt_nil" = "this" }

(* Test: quote_opt_nil *)
test quote_opt_nil put ""
  after set "quote_opt_nil" "this" =
  "this"

(* Test: quote_opt_nil *)
test quote_opt_nil put "\"this\""
  after set "quote_opt_nil" "this" =
  "\"this\""

(* Test: quote_opt_nil *)
test quote_opt_nil put "'this'"
  after set "quote_opt_nil" "this" =
  "'this'"


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