first version

git-svn-id: svn://10.0.0.236/trunk@107641 18797224-902f-48f8-a5cc-f745e15eee43

mozilla/tools/performance/startup/startup-quick.pl

@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+
+#
+# Script to time mozilla startup
+#
+# Requirements:
+# - a Profile with name "Default User"
+# - a MOZ_TIMELINE build
+#
+# This starts mozilla with the profile "Default User" and makes it quit immediately.
+# Measurement is either of main1 from MOZ_TIMELINE output if it is found or
+# the app runtime.
+#
+# This does multiple runs [default 3] and averages all but the first run.
+#
+# startup-quick.pl <exe> [n times]
+# n - default 3
+#
+
+require 5.003;
+
+require "gettime.pl";
+
+use strict;
+use Cwd;
+
+sub PrintUsage {
+  die <<END_USAGE
+  usage: startup-quick.pl [n]
+  e.g
+      startup-unix.pl ../../../dist/bin/mozilla
+      startup-unix.pl ../../../dist/bin/mozilla 10
+  n defaults to 3
+END_USAGE
+}
+
+{
+  PrintUsage() unless $#ARGV >= 0;
+  my $exe = shift @ARGV;
+  my $ntimes = shift @ARGV || 3;
+  my $timelinelog = "timeline.log";
+  # Do one more than what was requested as we ignore the first run timing
+  $ntimes++;
+
+  # Build up command string.
+  my $cwd = Cwd::getcwd();
+  my $cmd = "$exe -P \"Default User\" file:///$cwd/quit.html";
+  print "cmd = $cmd\n";
+  print "$ntimes times\n";
+  
+  # Setup run environment
+  $ENV{"NS_TIMELINE_LOG_FILE"} = $timelinelog;
+  $ENV{"XPCOM_DEBUG_BREAK"} = "warn";
+
+  my $i;
+  my @runtimes = ();
+  for($i = 0; $i < $ntimes; $i++) {
+      # Run the command.
+      system($cmd);
+
+      # find the time taken from the TIMELINE LOG
+      my $F;
+      open(F, "< $timelinelog") || die "no timeline log ($timelinelog) found";
+      while(<F>) {
+          if (/^(.*): \.\.\.main1$/) {
+              push @runtimes, $1;
+              print "[$i] runtime : $1 ms\n";
+          }
+      }
+      close(F);
+  }
+
+  # Compute final number. Skip first run and average the rest.
+  my $sum = 0;
+  shift @runtimes;
+  foreach $i (@runtimes) {
+      $sum += $i;
+  }
+  printf "%8.4f ms (%d trials)\n", $sum/($ntimes-1), $ntimes-1;
+}
+