← Back to branch summary

~ubuntu-branches/ubuntu/maverick/libcapture-tiny-perl/maverick

« back to all changes in this revision

Viewing changes to t/01-Capture-Tiny.t

  • Committer: Bazaar Package Importer
  • Author(s): Ryan Niebur
  • Date: 2009-05-23 04:44:25 UTC
  • Revision ID: james.westby@ubuntu.com-20090523044425-i3cuofbmt79rqq8e
Tags: upstream-0.06
Import upstream version 0.06

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/01-Capture-Tiny.t
 
1
# Copyright (c) 2009 by David Golden. All rights reserved.
 
2
# Licensed under Apache License, Version 2.0 (the "License").
 
3
# You may not use this file except in compliance with the License.
 
4
# A copy of the License was distributed with this file or you may obtain a 
 
5
# copy of the License from http://www.apache.org/licenses/LICENSE-2.0
 
6
 
 
7
use strict;
 
8
use warnings;
 
9
 
 
10
use Test::More ;
 
11
 
 
12
my @api = qw(
 
13
  capture
 
14
  capture_merged
 
15
  tee
 
16
  tee_merged
 
17
);
 
18
 
 
19
plan tests => 2 + 2 * @api;
 
20
 
 
21
require_ok( 'Capture::Tiny' );
 
22
 
 
23
can_ok('Capture::Tiny', $_) for @api;
 
24
 
 
25
ok( eval "package Foo; use Capture::Tiny ':all'; 1", "import ':all' to Foo" );
 
26
 
 
27
can_ok('Foo', $_) for @api;
 
28
 
 
29
exit 0;