[Bps-public-commit] r16664 - in Path-Dispatcher/trunk: t

[sartak at bestpractical.com]

Author: sartak
Date: Tue Nov  4 17:35:23 2008
New Revision: 16664

Added:
   Path-Dispatcher/trunk/t/900-use-path-dispatcher.t
Modified:
   Path-Dispatcher/trunk/   (props changed)

Log:
 r74953 at onn:  sartak | 2008-11-03 22:07:57 -0500
 Test that "use Path::Dispatcher -base" throws a helpful error


Added: Path-Dispatcher/trunk/t/900-use-path-dispatcher.t
==============================================================================
--- (empty file)
+++ Path-Dispatcher/trunk/t/900-use-path-dispatcher.t	Tue Nov  4 17:35:23 2008
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 1;
+
+eval "
+    package MyApp::Dispatcher;
+    use Path::Dispatcher -base;
+";
+
+like($@, qr/^use Path::Dispatcher \(-base\) called by MyApp::Dispatcher\. Did you mean Path::Dispatcher::Declarative\?/);
+