From b554ec7b0ec1a1558cbc71e60a46125b4c6b7932 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Fri, 26 Jun 2015 23:17:50 +1000
Subject: [PATCH] * t/regexps-misc.t

---
 lib/Text/Dokuwiki/Regexps.pm |  4 ++--
 t/regexps-misc.t             | 45 ++++++++++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+), 2 deletions(-)
 create mode 100644 t/regexps-misc.t

diff --git a/lib/Text/Dokuwiki/Regexps.pm b/lib/Text/Dokuwiki/Regexps.pm
index 8da89e5..bb1f854 100644
--- a/lib/Text/Dokuwiki/Regexps.pm
+++ b/lib/Text/Dokuwiki/Regexps.pm
@@ -9,8 +9,8 @@ my $EOL = '\r?\n';
 our $regexps = {};
 
 $regexps->{header} = qr{
-^ (?<header> .+ ) $EOL
-^ (?:<line>  [=-]+ )(?: $EOL | $)
+^ (?<header> .+    ) $EOL
+^ (?<line>   [=-]+ ) (?: $EOL | $)
 }mx;
 
 $regexps->{codeblock} = qr%
diff --git a/t/regexps-misc.t b/t/regexps-misc.t
new file mode 100644
index 0000000..8d34b6d
--- /dev/null
+++ b/t/regexps-misc.t
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use utf8;
+
+use Test::More tests => 10;
+use Text::Dokuwiki::Regexps;
+
+my $rx = $Text::Dokuwiki::Regexps::regexps;
+use re 'debugcolor';
+my $text = <<'TEXT';
+
+Header 1st level
+=================
+
+TEXT
+my $matched = 'Header 1st level';
+
+my @matches = $text =~ m/$rx->{header}/;
+is(scalar @matches, 2);
+is($+{header},  $matched);
+is($+{line},    '=================');
+is($matches[0], $matched);
+is($matches[1], '=================');
+
+$text = <<'TEXT';
+
+Header 2nd level
+-----------------
+
+TEXT
+$matched = 'Header 2nd level';
+@matches = $text =~ m/$rx->{header}/;
+is(scalar @matches, 2);
+is($matches[0], $matched);
+is($matches[1], '-----------------');
+
+$text = "Header only\n-------------";
+$matched = 'Header only';
+@matches = $text =~ m/$rx->{header}/;
+is($matches[0], $matched);
+is($matches[1], '-------------');
+
+exit 0;