t/07-keys.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#! /usr/bin/env perl6

use v6;

use Config::Parser::NULL;
use Config;
use Test;

my Config $c .= new.read: %(
	"a" => False,
	"b" => False,
	"c" => %(
		"a" => False,
		"b" => False,
	),
);

my @keys = < a b c.a c.b >;

is $c.keys, @keys, ".keys returns a list of all keys";

# vim: ft=perl6 noet