Skip to content

Commit

Permalink
Merge pull request #371 from tbrowder/fix-config-quotes
Browse files Browse the repository at this point in the history 
adds tests for rakudo PR 1339
  • Loading branch information
@AlexDaniel
AlexDaniel committed Jan 18, 2018
2 parents ccff418 + e090217 commit 41309b5
Showing 1 changed file with 221 additions and 9 deletions.
230 changes: 221 additions & 9 deletions S26-documentation/09-configuration.t
View file
@@ -1,22 +1,24 @@
use v6;
use Test;
plan 18;
my $r;
plan 94;
my ($r, $s);

my $p = 0;

=begin pod
=begin code :allow<B>
=end code
=end pod

$r = $=pod[0].contents[0];
$r = $=pod[$p++].contents[0];
isa-ok $r, Pod::Block::Code;
is $r.config<allow>, 'B';

=begin pod
=config head2 :like<head1> :formatted<I>
=end pod

$r = $=pod[1].contents[0];
$r = $=pod[$p++].contents[0];
isa-ok $r, Pod::Config;
is $r.type, 'head2';
is $r.config<like>, 'head1';
Expand All @@ -26,7 +28,7 @@ is $r.config<formatted>, 'I';
=for pod :number(42) :zebras :!sheep :feist<1 2 3 4>
=end pod

$r = $=pod[2].contents[0];
$r = $=pod[$p++].contents[0];
is $r.config<number>, 42;

# RT#127085
Expand All @@ -39,15 +41,15 @@ is $r.config<number>, 42;

#?rakudo todo 'non-string colonpair pod options RT #124281'
{
isa-ok $r.config<feist>, List;
isa-ok $r.config<feist>, Str;
}

=begin pod
=for DESCRIPTION :title<presentation template>
= :author<John Brown> :pubdate(2011)
=end pod

$r = $=pod[3].contents[0];
$r = $=pod[$p++].contents[0];
is $r.config<title>, 'presentation template';
is $r.config<author>, 'John Brown';
is $r.config<pubdate>, 2011;
Expand All @@ -57,7 +59,7 @@ is $r.config<pubdate>, 2011;
foo bar
=end pod

$r = $=pod[4].contents[0];
$r = $=pod[$p++].contents[0];
isa-ok $r, Pod::Block::Table;
is $r.config<caption>, 'Table of contents';

Expand All @@ -67,5 +69,215 @@ is $r.config<caption>, 'Table of contents';
=end code
=end pod

$r = $=pod[5].contents[0].contents[1];
$r = $=pod[$p++].contents[0].contents[1];
isa-ok $r, Pod::FormattingCode;

# Value is... Specify with... Or with... Or with...
# =============== ======================= ================= ===========
# List :key[$e1,$e2,...] :key($e1,$e2,...)
# Hash :key{$k1=>$v1,$k2=>$v2}
# Boolean (true) :key :key(True)
# Boolean (false) :!key :key(False)
# String :key<str> :key('str') :key("str")
# Number :key(42) :key(2.3)

# Where '$e1,$e2,...' are list elements of type Str, Int, Num, or
# Bool. Lists may have mixed element types. Note that one-element
# lists are converted to the type of their element (Str, Int, Num, or
# Bool).
#
# For hashes, '$k1,$k2,...' are keys of type Str and '$v1,$2,...'
# are values of type Str, Int, Num, or Bool.

# Strings may use any of the single Q/q quote constructs, e.g.,
# :key(Q[str]), which is equivalent to the :key<str> format and
# results in an uninterpreted string literal.

# tests for fixes for bugs:
# RT #124281 - colonpairs in POD config options always produce strings
# RT #126742 - config items should not include quotes for string values
#
# RT #130477 - Pod config parses colopairs but simply stringifies
# whatever it matched
#
# RT #132632 - List and hash configuration value formats are not yet
# implemented (NYI)

#====================================================
#=== strings
#====================================================
=begin table :k1<str> :k2('str') :k3("str") :k4["str"] :k5(Q[str])
foo
=end table

$r = $=pod[$p++];
say "=== testing strings";
isa-ok $r.config<k1>, Str;
isa-ok $r.config<k2>, Str;
isa-ok $r.config<k3>, Str;
isa-ok $r.config<k4>, Str;
isa-ok $r.config<k5>, Str;

$s = 'str';
is $r.config<k1>, $s, Q|<str>|;
is $r.config<k2>, $s, Q|'str'|;
is $r.config<k3>, $s, Q|"str"|;
is $r.config<k4>, $s, Q|"str"|;
is $r.config<k4>, $s, Q|using a Q/q quote|;

#====================================================
#=== ints
#====================================================
# max val int (int32): +2_147_483_647 <= 10 digits
# max val int (int64): +9_223_372_036_854_775_807 <= 19 digits
# TODO make a dynamic test that changes config test with hardware int bit size
=begin table :k1<1> :k2(2) :k3[2] :k4[+2000000000] :k5[-2000000000] :k6[+99999999999999999] :k7[-99999999999999999]
foo
=end table

$r = $=pod[$p++];
say "=== testing string and ints";
isa-ok $r.config<k1>, Str;
isa-ok $r.config<k2>, Int;
isa-ok $r.config<k3>, Int;
isa-ok $r.config<k4>, Int;
isa-ok $r.config<k5>, Int;
isa-ok $r.config<k6>, Int;
isa-ok $r.config<k7>, Int;

is $r.config<k1>, '1', Q|'1'|;
is $r.config<k2>, 2, Q|2|;
is $r.config<k3>, 2, Q|2|;
is $r.config<k4>, 2_000_000_000, Q|+2000000000|;
is $r.config<k5>, -2_000_000_000, Q|-2000000000|;
# bigints with 18 digits each:
is $r.config<k6>, +99999999999999999, Q|+99999999999999999|;
is $r.config<k7>, -99999999999999999, Q|-99999999999999999|;

#====================================================
#=== nums
#====================================================

=begin table :k1(2.3) :k2[-2.3] :k3[+1e4] :k4(3.1e+04) :k5[-3.1E-04]
foo
=end table

$r = $=pod[$p++];
say "=== testing nums";
isa-ok $r.config<k1>, Num;
isa-ok $r.config<k2>, Num;
isa-ok $r.config<k3>, Num;
isa-ok $r.config<k4>, Num;
isa-ok $r.config<k5>, Num;

is $r.config<k1>, 2.3, Q|2.3|;
is $r.config<k2>, -2.3, Q|-2.3|;
is $r.config<k3>, +1e4, Q|+1e4|;
is $r.config<k4>, 3.1e+04, Q|3.1e+04|;
is $r.config<k5>, -3.1E-04, Q|-3.1E-04|;

#====================================================
#=== bools
#====================================================
=begin table :k1 :!k2 :k3(True) :k4[True] :k5(False) :k6[False]
foo
=end table

$r = $=pod[$p++];
say "=== testing booleans";
isa-ok $r.config<k1>, Bool;
isa-ok $r.config<k2>, Bool;
isa-ok $r.config<k3>, Bool;
isa-ok $r.config<k4>, Bool;
isa-ok $r.config<k5>, Bool;
isa-ok $r.config<k6>, Bool;

ok $r.config<k1>, Q|:key|;
nok $r.config<k2>, Q|:!key|;
ok $r.config<k3>, Q|:key(True)|;
ok $r.config<k4>, Q|:key[True]|;
nok $r.config<k5>, Q|:key(False)|;
nok $r.config<k6>, Q|:key[False]|;

#====================================================
#=== lists
#====================================================
say "=== testing lists";
=begin table :k1(1, 'b c', 2.3, True, False) :k2[1, 'b c', 2.3, True, False]
foo
=end table

$r = $=pod[$p++];
isa-ok $r.config<k1>, List;
isa-ok $r.config<k2>, List;

is $r.config<k1>[0], 1, Q|1|;
is $r.config<k1>[1], "b c", Q|'b c'|;
is $r.config<k1>[2], 2.3, Q|2.3|;
ok $r.config<k1>[3], Q|True|;
nok $r.config<k1>[4], Q|False|;

is $r.config<k2>[0], 1, Q|1|;
is $r.config<k2>[1], "b c", Q|'b c'|;
is $r.config<k2>[2], 2.3, Q|2.3|;
ok $r.config<k2>[3], Q|True|;
nok $r.config<k2>[4], Q|False|;

#====================================================
#=== hashes
#====================================================
say "=== testing hashes";
=begin table :k1{a => 1, 2 => 'b', c => True, d => 2.3, e => False}
foo
=end table

$r = $=pod[$p++];
isa-ok $r.config<k1>, Hash;

is $r.config<k1><a>, 1, Q|1|;
is $r.config<k1><2>, 'b', Q|'b'|;
ok $r.config<k1><c>, Q|True|;
is $r.config<k1><d>, 2.3, Q|2.3|;
nok $r.config<k1><e>, Q|False|;

#====================================================
#=== troublesome hashes
#====================================================
say "=== testing troublesome hashes";
=begin table :k1{2 => 'b => ?', c => ",", d => 2.3}
foo
=end table

$r = $=pod[$p++];
isa-ok $r.config<k1>, Hash;

is $r.config<k1><2>, 'b => ?', Q|'b => ?'|;
is $r.config<k1><c>, ",", Q|","|;
is $r.config<k1><d>, 2.3, Q|2.3|;

=begin table :k1{2 , 'b => "', d => '"', 4 => "\""}
foo
=end table

$r = $=pod[$p++];
isa-ok $r.config<k1>, Hash;

is $r.config<k1><2>, 'b => "', Q|'b => "'|;
is $r.config<k1><d>, '"', Q|'"'|;
is $r.config<k1><4>, "\"", Q|"\""|;

#====================================================
#=== bigints
#====================================================

# 30 digits
=begin table :k6[+999999999999999999999999999999] :k7[-999999999999999999999999999999]
foo
=end table
$r = $=pod[$p++];
say "=== testing string and ints";
# bigints with 30 digits each:
isa-ok $r.config<k6>, Int;
isa-ok $r.config<k7>, Int;
is $r.config<k6>, 999_999_999_999_999_999_999_999_999_999, Q|+9 ** 30|;
is $r.config<k7>, -999_999_999_999_999_999_999_999_999_999, Q|-9 ** 30|;

0 comments on commit 41309b5

Please sign in to comment.