RubyGems - github-markup - Versions diffs - 3.0.2 → 3.0.3 - Mend

github-markup 3.0.2 → 3.0.3

Files changed (35) hide show

@@ -1,45 +0,0 @@
-#!perl6
-use Test;
-# do NOT move this below `Pod::To::HTML` line, the module exports a fake Pod::Defn
-constant no-pod-defn = ::('Pod::Defn') ~~ Failure;
-use Pod::To::HTML;
-plan :skip-all<Compiler does not support Pod::Defn> if no-pod-defn;
-plan 1;
-=begin pod
-=defn  MAD
-Affected with a high degree of intellectual independence.
-=defn  MEEKNESS
-Uncommon patience in planning a revenge that is worth while.
-=defn MORAL
-Conforming to a local and mutable standard of right.
-Having the quality of general expediency.
-=end pod
-say $=pod[0].perl;
-my $html = pod2html($=pod[0]);
-say $html;
-ok $html ~~ ms[[
-'<dl>'
-'<dt>MAD</dt>'
-'<dd><p>Affected with a high degree of intellectual independence.</p>'
-'</dd>'
-'<dt>MEEKNESS</dt>'
-'<dd><p>Uncommon patience in planning a revenge that is worth while.</p>'
-'</dd>'
-'<dt>MORAL</dt>'
-'<dd><p>Conforming to a local and mutable standard of right. Having the quality of general expediency.</p>'
-'</dd>'
-'</dl>'
-]], 'generated html for =defn';

@@ -1,14 +0,0 @@
-use v6;
-use Test;
-use Pod::To::HTML;
-plan 2;
-=begin pod
-Je suis Napoleon!
-=end pod
-like pod2html($=pod), /'<html lang="en">'/, 'default lang is English';
-like pod2html($=pod, :lang<fr>), /'<html lang="fr">'/, 'custom lang';

@@ -1,16 +0,0 @@
-use v6;
-use Test;
-use Pod::To::HTML;
-plan 2;
-=begin pod
-Je suis Napoleon!
-=end pod
-like pod2html($=pod), /'<link rel="stylesheet" href='/, 'default includes CSS';
-unlike pod2html($=pod, :lang<fr>, :css-url('')),
-    /'<link rel="stylesheet" href='/,
-    'empty string for CSS URL disables CSS inclusion';

@@ -1,16 +0,0 @@
-use v6;
-use Test;
-use Pod::To::HTML;
-plan 1;
-# Covershttps://github.com/perl6/Pod-To-HTML/issues/37
-#######
-# NOTE: It's important for the test below that pod2html is NOT used
-# before running the test, as doing so will hide the bug
-#######
-is-deeply node2html(
-    Pod::FormattingCode.new:
-        :type<L>, :meta[], :config{}, :contents["Array"]
-), '<a href="Array">Array</a>', 'no crash in node2html with L<>';

@@ -1,18 +0,0 @@
-use Test;
-use Pod::To::HTML;
-plan 2;
-=begin pod
-=head2 Rendering Perl 6 with no-break space
-Nothing to see here
-=head2 What's wrong with this rendering?
-Nothing to see here either
-=end pod
-my $r = pod2html $=pod;
-ok $r ~~ m/\#What\'s_wrong/;
-ok $r ~~ m/\#Rendering_Perl_6/;

@@ -1,42 +0,0 @@
-use Test; # -*- mode: perl6 -*-
-use Test::Output;
-use Pod::To::HTML;
-plan 5;
-my $r;
-=begin pod
-=TITLE The usual suspects
-The seven suspects are:
-=item  Happy
-=item  Dopey
-=item  Sleepy
-=item  Bashful
-=item  Sneezy
-=item  Grumpy
-=item  Keyser Soze
-=end pod
-stderr-like {$r = pod2html $=pod[0], :templates<templates>}, /'does not contain required templates'/, 'Complains when required templates not found';
-ok $r ~~ ms[[
-    '<p>' 'The seven suspects are:' '</p>'
-    '<ul>'
-        '<li>' '<p>' Happy '</p>' '</li>'
-        '<li>' '<p>' Dopey '</p>' '</li>'
-        '<li>' '<p>' Sleepy '</p>' '</li>'
-        '<li>' '<p>' Bashful '</p>' '</li>'
-        '<li>' '<p>' Sneezy '</p>' '</li>'
-        '<li>' '<p>' Grumpy '</p>' '</li>'
-        '<li>' '<p>' Keyser Soze '</p>' '</li>'
-    '</ul>'
-]], 'Uses default templates';
-$r = pod2html $=pod[0], :templates("t/templates");
-ok $r ~~ ms[[  '<meta description="This is a new template"/>' ]], 'Gets text from new template';
-ok $r ~~ ms[[ "<h1 class='title'>The usual suspects</h1>" ]], 'Fills template correctly';
-my $head='<meta name=viewport content="width=device-width, initial-scale=1">';
-$r = pod2html $=pod[0], :templates("t/templates"), :$head ;
-ok $r ~~ ms[[ $head ]], 'headers are redered as is';

@@ -1,33 +0,0 @@
-<!doctype html>
-<html lang="{{ lang }}">
-    <head>
-        <title>{{ title }}</title>
-        <meta charset="UTF-8" />
-        <meta description="This is a new template"/>
-        <style>
-        kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
-        samp { font-family: "Terminus", "Courier", "Lucida Console", monospace }
-        u { text-decoration: none }
-        .nested {
-            margin-left: 3em;
-        }
-        aside, u { opacity: 0.7 }
-        a[id^="fn-"]:target { background: #ff0 }
-        </style>
-        {{# css }}<link rel="stylesheet" href="{{ css }}">{{/ css }}
-        {{# metadata }}{{{ metadata }}}{{/ metadata }}
-        {{{ head }}}
-    </head>
-    <body class="pod">
-    <div id="___top"></div>
-    {{{ header }}}
-    {{# title }}<h1 class='title'>{{ title }}</h1>{{/ title }}
-    {{# subtitle }}<p class='subtitle'>{{ subtitle }}</p>{{/ subtitle }}
-    {{# toc }}{{{ toc }}}{{/ toc }}
-    <div class="pod-body{{^ toc }} no-toc{{/ toc }})">
-    {{# body }}{{{ . }}}{{/ body }}
-    </div>
-    {{# footnotes }}{{{ footnotes }}}{{/ footnotes }}
-    {{{ footer }}}
-    </body>
-</html>