commit 332f8e3370ea6c777f4b81696e76667a4a9d45db
parent 904d3191f2447d94f04794182b5532a5b1eb450b
Author: Kyle Milz <kyle@0x30.net>
Date: Fri, 1 Jul 2016 15:07:03 -0600
tt: remove mutt once again
Diffstat:
D | tt/mutt.t | | | 145 | ------------------------------------------------------------------------------- |
1 file changed, 0 insertions(+), 145 deletions(-)
diff --git a/tt/mutt.t b/tt/mutt.t
@@ -1,145 +0,0 @@
-use strict;
-use warnings;
-
-use Expect;
-use Test::More;
-use Time::HiRes qw( time );
-
-my $num_tests = 338;
-$num_tests = 342 if ($^O ne "darwin");
-plan tests => $num_tests;
-
-use Test::Package;
-use Test::Report;
-use Test::Viewer;
-
-# Download: Mutt 1.6.1, depends on nothing (?).
-my $mutt_url = "ftp://ftp.mutt.org/pub/mutt/";
-my $package = Test::Package->new("mutt-1.6.1.tar.gz", $mutt_url, "tar xzf");
-$package->dependencies("citrun");
-
-# New end to end report.
-my $report = Test::Report->new($package->dist_name());
-$report->add("desc", "configure time (sec)");
-$report->add("desc", "compile time (sec)");
-$report->add("desc", "mutt size (b)");
-
-my $srcdir = $package->set_srcdir("/mutt-1.6.1");
-
-# Vanilla configure and compile.
-$report->add("vanilla", $package->configure("./configure --disable-pgp --disable-smime --disable-nls --disable-iconv"));
-$report->add("vanilla", $package->compile("make -j8 all"));
-
-$report->add("vanilla", $package->get_file_size("/mutt"));
-
-# Clean up before rebuild.
-$package->clean("make distclean");
-
-# Instrumented configure and compile.
-$report->add("citrun", $package->inst_configure());
-$report->add("citrun", $package->inst_compile());
-
-$report->add("citrun", $package->get_file_size("/mutt"));
-
-# Verify: instrumented data structures are consistent.
-my $viewer = Test::Viewer->new();
-my $exp = Expect->spawn("$srcdir/mutt");
-
-my @known_good = (
- # file name lines instrumented sites
- [ "/addrbook.c", 246, 102 ],
- [ "/alias.c", 658, 266 ],
- [ "/ascii.c", 107, 42 ],
- [ "/attach.c", 1043, 454 ],
- [ "/base64.c", 123, 42 ],
- [ "/browser.c", 1267, 342 ],
- [ "/buffy.c", 629, 234 ],
- [ "/charset.c", 680, 179 ],
- [ "/color.c", 824, 260 ],
- [ "/commands.c", 1018, 358 ],
- [ "/complete.c", 199, 70 ],
- [ "/compose.c", 1345, 375 ],
- [ "/conststrings.c", 47, 0 ],
- [ "/copy.c", 962, 403 ],
- [ "/crypt-mod.c", 59, 32 ],
- [ "/crypt.c", 1121, 461 ],
- [ "/cryptglue.c", 396, 100 ],
- [ "/curs_lib.c", 1046, 323 ],
- [ "/curs_main.c", 2349, 545 ],
- [ "/date.c", 191, 59 ],
- [ "/edit.c", 491, 212 ],
- [ "/editmsg.c", 235, 97 ],
- [ "/enter.c", 772, 267 ],
- [ "/filter.c", 184, 103 ],
- [ "/flags.c", 384, 129 ],
- [ "/from.c", 199, 138 ],
- [ "/getdomain.c", 70, 40 ],
- [ "/group.c", 209, 117 ],
- [ "/handler.c", 1845, 612 ],
- [ "/hash.c", 179, 83 ],
- [ "/hdrline.c", 764, 313 ],
- [ "/headers.c", 214, 124 ],
- [ "/help.c", 380, 187 ],
- [ "/history.c", 320, 122 ],
- [ "/hook.c", 545, 186 ],
- [ "/init.c", 3285, 1120 ],
- [ "/keymap.c", 1146, 387 ],
- [ "/lib.c", 1086, 360 ],
- [ "/main.c", 1225, 353 ],
- [ "/mbox.c", 1269, 446 ],
- [ "/mbyte.c", 569, 68 ],
- [ "/menu.c", 1082, 273 ],
- [ "/mh.c", 2351, 726 ],
- [ "/muttlib.c", 1958, 555 ],
- [ "/mx.c", 1629, 455 ],
- [ "/pager.c", 2817, 631 ],
- [ "/parse.c", 1648, 588 ],
- [ "/patchlist.c", 12, 28 ],
- [ "/pattern.c", 1546, 549 ],
- [ "/postpone.c", 748, 232 ],
- [ "/query.c", 543, 223 ],
- [ "/recvattach.c", 1274, 428 ],
- [ "/recvcmd.c", 950, 297 ],
- [ "/resize.c", 80, 47 ],
- [ "/rfc1524.c", 594, 203 ],
- [ "/rfc2047.c", 924, 315 ],
- [ "/rfc2231.c", 384, 136 ],
- [ "/rfc3676.c", 390, 140 ],
- [ "/rfc822.c", 919, 245 ],
- [ "/safe_asprintf.c", 96, 35 ],
- [ "/score.c", 196, 74 ],
- [ "/send.c", 1953, 660 ],
- [ "/sendlib.c", 2890, 972 ],
- [ "/signal.c", 254, 85 ],
- [ "/sort.c", 343, 133 ],
- [ "/status.c", 309, 148 ],
- [ "/system.c", 142, 65 ],
- [ "/thread.c", 1431, 386 ],
- [ "/url.c", 325, 164 ],
-);
-
-if ($^O ne "darwin") {
- my $to_insert = [ "/dotlock.c", 759, 139 ];
-
- for my $i (0..(scalar @known_good - 1)) {
- next if ($known_good[$i]->[0] lt $to_insert->[0]);
-
- splice @known_good, $i, 0, ($to_insert);
- last;
- }
-}
-
-$viewer->accept();
-is( $viewer->{num_tus}, scalar @known_good, "translation unit count" );
-
-$viewer->cmp_static_data(\@known_good);
-
-my $start = time;
-my ($data, $old_data) = (undef, undef);
-for (1..60) {
- $old_data = $data;
- $data = $viewer->cmp_dynamic_data($old_data);
-}
-my $data_call_dur = time - $start;
-
-$exp->hard_close();