citrun

commit 66ca4d3202318e0f3c78feb2787124f6c8c97840
parent 1bf1e230233bd95f315408ae3ea4d8f09111a084
Author: Kyle Milz <kyle@0x30.net>
Date:   Sun, 26 Jun 2016 22:03:38 -0600

Test: make Package smarter

Diffstat:
M
Test/Package.pm
 | 
45
+++++++++++++++++++++++++++++++++++++++++----

1 file changed, 41 insertions(+), 4 deletions(-)
diff --git a/Test/Package.pm b/Test/Package.pm
@@ -29,10 +29,11 @@ sub new {
 	return $self;
 }
 
-sub dir {
-	my ($self) = @_;
-	return $self->{dir};
-}
+sub set_srcdir {
+	my ($self, $srcdir) = @_;
+	$self->{srcdir} = $self->{dir} . $srcdir;
+	return $self->{srcdir};
+};
 
 sub dependencies {
 	my ($self, @deps) = @_;
@@ -72,4 +73,40 @@ sub parse_output {
 	return @pkgs;
 }
 
+sub configure {
+	my ($self, $config_cmd) = @_;
+
+	$self->{config_cmd} = $config_cmd;
+	return $self->time_system($config_cmd);
+}
+
+sub compile {
+	my ($self, $compile_cmd) = @_;
+
+	$self->{compile_cmd} = $compile_cmd;
+	return $self->time_system($compile_cmd);
+}
+
+sub inst_configure {
+	my ($self) = @_;
+
+	die "configure() was not called" unless (exists $self->{config_cmd});
+	return $self->time_system("citrun-wrap $self->{config_cmd}");
+}
+
+sub inst_compile {
+	my ($self) = @_;
+
+	die "compile() was not called" unless (exists $self->{compile_cmd});
+	return $self->time_system("citrun-wrap $self->{compile_cmd}");
+}
+
+sub time_system {
+	my ($self, $cmd) = @_;
+
+	my $start = time;
+	system("cd $self->{srcdir} && $cmd") == 0 or die "'$cmd'\n";
+	return time - $start;
+}
+
 1;