commit 28fe1d3ae70fd0b4c6cf2b35e204e87fcc425248
parent 9b051fbda28cda30728dc5104d07a6af940f3fe3
Author: Kyle Milz <kyle@0x30.net>
Date: Wed, 10 Aug 2016 18:04:31 -0600
test: move package.pm
Diffstat:
D | Test/Package.pm | | | 55 | ------------------------------------------------------- |
A | test/package.pm | | | 55 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
2 files changed, 55 insertions(+), 55 deletions(-)
diff --git a/Test/Package.pm b/Test/Package.pm
@@ -1,55 +0,0 @@
-package Test::Package;
-use strict;
-
-use Cwd;
-use IPC::Open2;
-use File::Temp qw( tempdir );
-
-sub new {
- my ($class, $name) = @_;
-
- my $self = {};
- bless($self, $class);
-
- my $dir = tempdir( CLEANUP => 1 );
- $self->{dir} = $dir;
-
- $self->{port} = "/usr/ports/$name";
-
- $ENV{CITRUN_SOCKET} = $self->{dir} . "/test.socket";
- my $cwd = cwd;
-
- system(<<EOF) == 0 or die "build failed.";
-set -e
-make -C $self->{port} full-build-depends > $self->{dir}/deps
-doas pkg_add -zl $self->{dir}/deps
-
-make -C $self->{port} clean=all
-make -C $self->{port} PORTPATH="$cwd/src:\\\${WRKDIR}/bin:\$PATH"
-EOF
-
- return $self;
-}
-
-sub clean {
- my ($self) = @_;
- #system("citrun-check /usr/ports/pobj/$self->{port}-*");
- system("make -C $self->{port} clean=all") == 0 or die "$!";
-}
-
-sub get_file_size {
- my ($self, $file) = @_;
-
- die "file '$file' does not exist." unless (-f "$self->{srcdir}$file");
- return ((stat "$self->{srcdir}$file")[7]);
-}
-
-sub time_system {
- my ($self, $cmd) = @_;
-
- my $start = time;
- system("cd $self->{srcdir} && $cmd") == 0 or die "'$cmd'\n";
- return time - $start;
-}
-
-1;
diff --git a/test/package.pm b/test/package.pm
@@ -0,0 +1,55 @@
+package test::package;
+use strict;
+
+use Cwd;
+use IPC::Open2;
+use File::Temp qw( tempdir );
+
+sub new {
+ my ($class, $name) = @_;
+
+ my $self = {};
+ bless($self, $class);
+
+ my $dir = tempdir( CLEANUP => 1 );
+ $self->{dir} = $dir;
+
+ $self->{port} = "/usr/ports/$name";
+
+ $ENV{CITRUN_SOCKET} = $self->{dir} . "/test.socket";
+ my $cwd = cwd;
+
+ system(<<EOF) == 0 or die "build failed.";
+set -e
+make -C $self->{port} full-build-depends > $self->{dir}/deps
+doas pkg_add -zl $self->{dir}/deps
+
+make -C $self->{port} clean=all
+make -C $self->{port} PORTPATH="$cwd/src:\\\${WRKDIR}/bin:\$PATH"
+EOF
+
+ return $self;
+}
+
+sub clean {
+ my ($self) = @_;
+ #system("citrun-check /usr/ports/pobj/$self->{port}-*");
+ system("make -C $self->{port} clean=all") == 0 or die "$!";
+}
+
+sub get_file_size {
+ my ($self, $file) = @_;
+
+ die "file '$file' does not exist." unless (-f "$self->{srcdir}$file");
+ return ((stat "$self->{srcdir}$file")[7]);
+}
+
+sub time_system {
+ my ($self, $cmd) = @_;
+
+ my $start = time;
+ system("cd $self->{srcdir} && $cmd") == 0 or die "'$cmd'\n";
+ return time - $start;
+}
+
+1;