view release on metacpan or  search on metacpan

t/01_Module-Overview.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

#use Test::More 'no_plan';
use Test::More tests => 7;
use Test::Differences;

use FindBin qw($Bin);
use lib "$Bin/lib";

BEGIN {
	use_ok ( 'Module::Overview' ) or exit;
	use_ok ( 'M::O' ) or exit;
}

exit main();

sub main {
	my $mo = Module::Overview->new({
		'module_name' => 'Module::Overview',
	});
	can_ok($mo, 'get');
	can_ok($mo, 'text_simpletable');
	can_ok($mo, 'graph');
	
	# see mo_texttable() for sample output
	subtest 'text_simpletable()' => sub {
		my $text_simpletable = $mo->text_simpletable;
		foreach my $has_to_have (qw{class parents classes uses methods methods_imported make_ro_accessor}) {
			like($text_simpletable,qr{\|\s$has_to_have[\s\(]},'text_simpletable() contains '.$has_to_have);
		}
	};
	#~ eq_or_diff(
		#~ $mo->text_simpletable,
		#~ mo_texttable(),
		#~ '->text_simpletable()  hide_methods, classes',
	#~ );

	my $mo2 = Module::Overview->new({
		'module_name'  => 'M::O',
		'hide_methods' => 1,
	});
	eq_or_diff(
		$mo2->text_simpletable,
		mo2_texttable(),
		'->text_simpletable()  hide_methods, classes',
	);
	
	return 0;
}

sub mo_texttable {
	return << '__END_OF_TABLE__'
.------------------+--------------------------------------------------------------.
| class            | Module::Overview                                             |
+------------------+--------------------------------------------------------------+
| parents          | Class::Accessor::Fast                                        |
| classes          | Class::Accessor                                              |
+------------------+--------------------------------------------------------------+
| uses             | Carp                                                         |
|                  | Class::Sniff                                                 |
|                  | Graph::Easy                                                  |
|                  | Module::ExtractUse                                           |
|                  | Text::SimpleTable                                            |
+------------------+--------------------------------------------------------------+
| methods          | _carp() [Class::Accessor]                                    |