From ed0d38fe4aad1a5ce38e245718542812d8725ae8 Mon Sep 17 00:00:00 2001
From: Leon Timmermans <fawaka@gmail.com>
Date: Mon, 21 Mar 2011 22:35:46 +0100
Subject: [PATCH] Added some tests

---
 t/10-basic.t     | 21 +++++++++++++++++++++
 t/files/example1 |  1 +
 t/files/example2 |  3 +++
 3 files changed, 25 insertions(+)
 create mode 100644 t/10-basic.t
 create mode 100644 t/files/example1
 create mode 100644 t/files/example2

diff --git a/t/10-basic.t b/t/10-basic.t
new file mode 100644
index 0000000..71b35d8
--- /dev/null
+++ b/t/10-basic.t
@@ -0,0 +1,21 @@
+#! perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use Test::More tests => 3;
+use Test::Differences;
+
+use ExtUtils::BuildRC qw/parse_file read_config/;
+
+my $example1 = parse_file('t/files/example1');
+eq_or_diff($example1, { install => ['--install_base', '/home/user/perl5'] }, 'parse_file seems to be sane');
+
+{
+	local $ENV{MODULEBUILDRC} = 't/files/example1';
+	my $second_try = read_config();
+	eq_or_diff($second_try, { install => ['--install_base', '/home/user/perl5'] }, 'Reading it from $ENV{MODULEBUILDRC} works too');
+}
+
+my $example2 = parse_file('t/files/example2');
+eq_or_diff($example2, { install => ['--install_base', '/home/user/perl5', '--prefix', '/home/user'], '*' => [ '--verbose' ] }, 'Embedded newlines are handled too');
diff --git a/t/files/example1 b/t/files/example1
new file mode 100644
index 0000000..64839a1
--- /dev/null
+++ b/t/files/example1
@@ -0,0 +1 @@
+install  --install_base  /home/user/perl5
diff --git a/t/files/example2 b/t/files/example2
new file mode 100644
index 0000000..ef74dbd
--- /dev/null
+++ b/t/files/example2
@@ -0,0 +1,3 @@
+install  --install_base  /home/user/perl5
+ --prefix /home/user
+* --verbose