Commits

M6 KVM committed 2333907 Draft

Write wrapper which calls Package() function

Comments (0)

Files changed (1)

+#!/usr/bin/perl -w
+#
+# These tests read the demo.csv file.
+#
+
+package main;
+use Text::CSV::SpiceWorks::Parser;
+use Test::More tests => 2;
+use Data::Dumper;
+
+use strict;
+use warnings;
+use diagnostics;
+#----------------------------------------------------------------------------
+use constant TEST_PACKAGE => 'Text::CSV::SpiceWorks::Parser';
+
+sub t_Packages($$);
+sub t_main();
+#----------------------------------------------------------------------------
+sub t_Packages($$)
+{
+	my ( $F, $O ) = @_;
+	die Dumper $O->Packages();
+}
+#----------------------------------------------------------------------------
+sub t_main()
+{
+	my %tests = (
+		'Packages' => \&t_Packages
+	);
+	while ( my ( $name, $func ) = each(%tests) ) {
+		my $o = TEST_PACKAGE()->new();
+
+		$func->($name, $o);
+	}
+	return 0;
+}
+#----------------------------------------------------------------------------
+exit(t_main()) if ( !caller() );
+#----------------------------------------------------------------------------
+1;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.