@podlite/to-jsx 0.0.18 → 0.0.19

package/t/fixtures-src/09-configuration.t

@@ -1,334 +0,0 @@
-use v6;
-use Test;
-plan 98;
-my ($r, $s);
-
-my $p = 0;
-
-#---
-=begin pod
-    =begin code :allow<B>
-    =end code
-=end pod
-#---
-
-$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[$p++].contents[0];
-isa-ok $r, Pod::Config;
-is $r.type, 'head2';
-is $r.config<like>, 'head1';
-is $r.config<formatted>, 'I';
-
-#---
-=begin pod
-    =for pod :number(42) :zebras :!sheep :feist<1 2 3 4>
-=end pod
-#---
-
-$r = $=pod[$p++].contents[0];
-is $r.config<number>, 42;
-
-{ # RT#127085
-  is-deeply $r.config<zebras>, True, 'bool config uses Bool type (True)';
-  is-deeply $r.config<sheep>, False, 'bool config uses Bool type (False)';
-}
-
-
-# RT #124281
-isa-ok $r.config<feist>, Str;
-
-
-#---
-=begin pod
-=for DESCRIPTION :title<presentation template>
-=                :author<John Brown> :pubdate(2011)
-=end pod
-#---
-
-$r = $=pod[$p++].contents[0];
-is $r.config<title>, 'presentation template';
-is $r.config<author>, 'John Brown';
-is $r.config<pubdate>, 2011;
-
-#---
-=begin pod
-=for table :caption<Table of contents>
-    foo bar
-=end pod
-#---
-
-$r = $=pod[$p++].contents[0];
-isa-ok $r, Pod::Block::Table;
-is $r.config<caption>, 'Table of contents';
-
-#---
-=begin pod
-    =begin code :allow<B>
-    These words have some B<importance>.
-    =end code
-=end pod
-#---
-
-$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|;
-
-#=====================================
-# GH issue #2793
-=for info :034foo
-:034foo
-
-$r = $=pod[$p++];
-isa-ok $r.config<foo>, Int, '034foo: foo => 34';
-is $r.config<foo>, 34, 'foo => 34';
-
-
-=for info :0foo
-:0foo
-
-$r = $=pod[$p++];
-isa-ok $r.config<foo>, Int, '0foo: foo => 0';
-is $r.config<foo>, 0, 'foo => 0';
-
-=for info :1foo
-:0foo
-
-$r = $=pod[$p++];
-isa-ok $r.config<foo>, Int, '1foo: foo => 1';
-is $r.config<foo>, 1, 'foo => 1';
-

package/t/fixtures-src/10-alias.t

@@ -1,20 +0,0 @@
-#---
-=begin pod
-    =alias PROGNAME    Earl Irradiatem Evermore
-    =alias VENDOR      4D Kingdoms
-    =alias TERMS_URLS  =item L<http://www.4dk.com/eie>
-    =                  =item L<http://www.4dk.co.uk/eie.io/>
-    =                  =item L<http://www.fordecay.ch/canttouchthis>
-The use of A<PROGNAME> is subject to the terms and conditions
-laid out by A<VENDOR>, as specified at:
-
-A<TERMS_URLS>
-
-=end pod
-#---
-
-# A<>: wrap spaces around identifier #8
-#---
-=para
-A<  TERER >
-#---

package/t/fixtures-src/11-formatting-code-D.t

@@ -1,6 +0,0 @@
-# 
-#---
-=para
-  A D<formatting code|formatting codes;formatters> provides a way
-    to add inline mark-up to a D<piece> of text.
-#---

package/t/fixtures-src/11-formatting-code-E.t

@@ -1,4 +0,0 @@
-# Link E test
-#---
-=para  E<171> xcxc E<0d171; 0o253; 0b10101011; 0xAB>
-#---

package/t/fixtures-src/11-formatting-code-L.t

@@ -1,4 +0,0 @@
-# Link L test
-#---
-=item L<https://www.python.org/dev/peps/pep-0001/#what-is-a-pep>
-#---

package/t/fixtures-src/12-data.t

@@ -1,16 +0,0 @@
-#---
-=begin pod
-=begin data :key<Virtues>
-Laziness
-
-Impatience
-Hubris
-=end data
-=data Industry
-=data Patience
-=data Humility
-
-say 'The three virtues are:';
-say $=data<Virtues>;
-=end pod
-#---

package/t/fixtures.component.spec.tsx

@@ -1,47 +0,0 @@
-import Podlite from '../src/index'
-import React from 'react'
-import { renderToStaticMarkup } from 'react-dom/server'
-
-const fs = require('fs')
-const path = require('path')
-const glob = require('glob')
-
-// load examples from fixtures src
-/**
- * 
- * @returns 
- * { file: '/Users/zag/Dropbox/Work/proj/podlite/packages/podlite-to-jsx/t/fixtures-src/00-maintests.t', 
-    id: 5, 
-    text: '=config table :k1<very long string, comma> :k2<2 23  23 > :k3<\'23\', 23233, 333>\n', 
-    testFile: 't/fixtures/00-maintests_5.txt' }, 
- */
-const allSrcFixtures = () => {
-  const pathToTests = path.resolve(__dirname, './fixtures-src')
-  const files = glob.sync(`${pathToTests}/*.t`)
-  const loaded = files
-    .map(file => {
-      const d = fs.readFileSync(file)
-      const s = `${d}`
-        .split(/#---+\n/)
-        .filter(t => t.match(/^\s*=/))
-        .map((text, i) => {
-          const { dir, name } = path.parse(file)
-          const testFile = `t/fixtures/${name}_${i}.txt`
-          return { file, id: i, text, testFile }
-        })
-      return s
-    })
-    .flat()
-  return loaded
-}
-const t = allSrcFixtures()
-t
-
-describe('run parser tests', () => {
-  allSrcFixtures().map(i =>
-    test(i.file, () => {
-      const result = renderToStaticMarkup(<Podlite>{i.text}</Podlite>)
-      expect(result).not.toBeNull()
-    }),
-  )
-})