Ticket #695: eliminate_hcf.txt

File eliminate_hcf.txt, 1.2 KB (added by doughera, 5 years ago)
Line 
1diff -r -u parrot-current/src/dynoplibs/myops.ops parrot-andy/src/dynoplibs/myops.ops
2--- parrot-current/src/dynoplibs/myops.ops      2009-04-17 08:58:53.000000000 -0400
3+++ parrot-andy/src/dynoplibs/myops.ops 2009-05-21 11:15:45.145179107 -0400
4@@ -44,18 +44,6 @@
5     $1 = string_from_literal(interp, "fortytwo");
6 }
7 
8-=item B<hcf>
9-
10-Halt and Catch Fire. Tries to crash Parrot.  Note that making a segfault here
11-is a Bad Thing, so this relies instead on Well Supported end-this-process
12-behavior.
13-
14-=cut
15-
16-op hcf() :flow {
17-    abort();
18-}
19-
20 =item B<q>
21 
22 Support for writing a very short quine.
23diff -r -u parrot-current/t/dynoplibs/myops.t parrot-andy/t/dynoplibs/myops.t
24--- parrot-current/t/dynoplibs/myops.t  2009-04-17 09:00:29.000000000 -0400
25+++ parrot-andy/t/dynoplibs/myops.t     2009-05-21 11:15:24.432927937 -0400
26@@ -6,7 +6,7 @@
27 use warnings;
28 use lib qw( . lib ../lib ../../lib );
29 use Test::More;
30-use Parrot::Test tests => 10;
31+use Parrot::Test tests => 9;
32 use Parrot::Config;
33 
34 =head1 NAME
35@@ -51,18 +51,6 @@
36 fortytwo
37 OUTPUT
38 
39-pir_error_output_like( << 'CODE', << 'OUTPUT', "hcf" );
40-.loadlib "myops_ops"
41-.sub main :main
42-    print "neither here\n"
43-    hcf
44-    print "nor there\n"
45-.end
46-CODE
47-/neither here
48-(?!nor there)/
49-OUTPUT
50-
51 {
52     my @todo;
53