src.elv.sh@v0.21.0-dev.0.20240515223629-06979efb9a2a/pkg/eval/ns_test.elvts (about)

     1  //////
     2  # ns #
     3  //////
     4  
     5  ~> kind-of (ns [&])
     6  ▶ ns
     7  
     8  ## equality ##
     9  // an Ns is only equal to itself ##
    10  ~> var ns = (ns [&])
    11     eq $ns $ns
    12  ▶ $true
    13  ~> eq (ns [&]) (ns [&])
    14  ▶ $false
    15  ~> eq (ns [&]) [&]
    16  ▶ $false
    17  
    18  ## access ##
    19  ~> var ns: = (ns [&a=b &x=y])
    20     put $ns:a
    21  ▶ b
    22  ~> var ns: = (ns [&a=b &x=y])
    23     put $ns:[a]
    24  ▶ b
    25  
    26  ## keys ##
    27  ~> keys (ns [&a=b &x=y]) | order
    28  ▶ a
    29  ▶ x
    30  
    31  ## has-key ##
    32  ~> has-key (ns [&a=b &x=y]) a
    33  ▶ $true
    34  ~> has-key (ns [&a=b &x=y]) b
    35  ▶ $false