basis/toml/toml-tests.factor

   1 USING: multiline toml tools.test ;
   2
   3 {
   4     H{
   5         { "title" "TOML Example" }
   6         { "hosts" { "alpha" "omega" } }
   7         {
   8             "owner"
   9             H{
  10                 { "name" "Tom Preston-Werner" }
  11                 { "organization" "GitHub" }
  12                 {
  13                     "bio"
  14                     "GitHub Cofounder & CEO\nLikes tater tots and beer."
  15                 }
  16                 { "dob" "1979-05-27T07:32:00Z" }
  17             }
  18         }
  19         {
  20             "database"
  21             H{
  22                 { "server" "192.168.1.1" }
  23                 { "ports" { 8001 8001 8002 } }
  24                 { "connection_max" 5000 }
  25                 { "enabled" t }
  26             }
  27         }
  28         {
  29             "servers"
  30             H{
  31                 {
  32                     "alpha"
  33                     H{
  34                         { "ip" "10.0.0.1" }
  35                         { "dc" "eqdc10" }
  36                     }
  37                 }
  38                 {
  39                     "beta"
  40                     H{
  41                         { "ip" "10.0.0.2" }
  42                         { "dc" "eqdc10" }
  43                         { "country" "中国" }
  44                     }
  45                 }
  46             }
  47         }
  48         {
  49             "clients"
  50             H{
  51                 { "data" { { "gamma" "delta" } { 1 2 } } }
  52             }
  53         }
  54         {
  55             "products"
  56             V{
  57                 H{
  58                     { "name" "Hammer" }
  59                     { "sku" 738594937 }
  60                 }
  61                 H{
  62                     { "name" "Nail" }
  63                     { "sku" 284758393 }
  64                     { "color" "gray" }
  65                 }
  66             }
  67         }
  68     }
  69 } [
  70     [=[
  71
  72 # This is a TOML document. Boom.
  73
  74 title = "TOML Example"
  75
  76 [owner]
  77 name = "Tom Preston-Werner"
  78 organization = "GitHub"
  79 bio = "GitHub Cofounder & CEO\nLikes tater tots and beer."
  80 dob = 1979-05-27T07:32:00Z # First class dates? Why not?
  81
  82 [database]
  83 server = "192.168.1.1"
  84 ports = [ 8001, 8001, 8002 ]
  85 connection_max = 5000
  86 enabled = true
  87
  88 [servers]
  89
  90   # You can indent as you please. Tabs or spaces. TOML don't care.
  91   [servers.alpha]
  92   ip = "10.0.0.1"
  93   dc = "eqdc10"
  94
  95   [servers.beta]
  96   ip = "10.0.0.2"
  97   dc = "eqdc10"
  98   country = "中国" # This should be parsed as UTF-8
  99
 100 [clients]
 101 data = [ ["gamma", "delta"], [1, 2] ] # just an update to make sure parsers support it
 102
 103 # Line breaks are OK when inside arrays
 104 hosts = [
 105   "alpha",
 106   "omega"
 107 ]
 108
 109 # Products
 110
 111   [[products]]
 112   name = "Hammer"
 113   sku = 738594937
 114
 115   [[products]]
 116   name = "Nail"
 117   sku = 284758393
 118   color = "gray"
 119
 120     ]=] toml>
 121 ] unit-test
 122
 123 {
 124     H{
 125         { "deps" H{
 126             { "temp_targets" H{ { "case" 72.0 } } } }
 127         }
 128     }
 129 } [
 130     "[deps]
 131     temp_targets = { case = 72.0 }" toml>
 132 ] unit-test