citrun

watch C/C++ source code execute
Log | Files | Refs | LICENSE

commit 28fe1d3ae70fd0b4c6cf2b35e204e87fcc425248
parent 9b051fbda28cda30728dc5104d07a6af940f3fe3
Author: Kyle Milz <kyle@0x30.net>
Date:   Wed, 10 Aug 2016 18:04:31 -0600

test: move package.pm

Diffstat:
DTest/Package.pm | 55-------------------------------------------------------
Atest/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;