1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
From 4ee37e2617e3de954113d64046fce7566dd39910 Mon Sep 17 00:00:00 2001
From: Giacomo Leidi <goodoldpaul@autistici.org>
Date: Tue, 17 Sep 2024 03:11:47 +0200
Subject: [PATCH] These tests fail on current Guix.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
binpp: -print_bucket_test_/0-fun-4- (Print 00FF)...*failed*
in function binpp:'-print_bucket_test_/0-fun-4-'/3 (/tmp/guix-build-erlang-binpp-1.1.1.drv-0/src/binpp.erl, line 290)
in call from eunit_test:run_testfun/1 (eunit_test.erl, line 72)
in call from eunit_proc:run_test/1 (eunit_proc.erl, line 544)
in call from eunit_proc:with_timeout/3 (eunit_proc.erl, line 369)
in call from eunit_proc:handle_test/2 (eunit_proc.erl, line 527)
in call from eunit_proc:tests_inorder/3 (eunit_proc.erl, line 469)
in call from eunit_proc:with_timeout/3 (eunit_proc.erl, line 359)
in call from eunit_proc:run_group/2 (eunit_proc.erl, line 583)
**error:{assertEqual,[{module,binpp},
{line,290},
{expression,"F ( I )"},
{expected,["00 FF ",
32,".ÿ","\n"]},
{value,["00 FF ",32,
".ÿ",10]}]}
output:<<"">>
binpp: -print_bucket_test_/0-fun-4- (Print 41414141414141414141414141414141)...*failed*
in function binpp:'-print_bucket_test_/0-fun-4-'/3 (/tmp/guix-build-erlang-binpp-1.1.1.drv-0/src/binpp.erl, line 290)
in call from eunit_test:run_testfun/1 (eunit_test.erl, line 72)
in call from eunit_proc:run_test/1 (eunit_proc.erl, line 544)
in call from eunit_proc:with_timeout/3 (eunit_proc.erl, line 369)
in call from eunit_proc:handle_test/2 (eunit_proc.erl, line 527)
in call from eunit_proc:tests_inorder/3 (eunit_proc.erl, line 469)
in call from eunit_proc:with_timeout/3 (eunit_proc.erl, line 359)
in call from eunit_proc:run_group/2 (eunit_proc.erl, line 583)
**error:{assertEqual,[{module,binpp},
{line,290},
{expression,"F ( I )"},
{expected,["41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 ",
32,"AAAAAAAAAAAAAAAA","\n"]},
{value,["41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 ",32,
"AAAAAAAAAAAAAAAA",10]}]}
output:<<"">>
---
src/binpp.erl | 12 ------------
1 file changed, 12 deletions(-)
diff --git a/src/binpp.erl b/src/binpp.erl
index ec5f8cf..4ec98e4 100644
--- a/src/binpp.erl
+++ b/src/binpp.erl
@@ -278,18 +278,6 @@ diff_test_() ->
[ { <<"Diff">>, fun() -> ?assertEqual({ok, R}, F(I1, I2)) end }
|| { {I1, I2}, R } <- Tests ].
-print_bucket_test_() ->
- F = fun print_bucket/1,
- Tests = [
- { ["00", "FF"],
- ["00 FF ", ?SPACE, [?SPECIAL, 255], "\n"] },
-
- { ["41" || _ <- lists:seq(1, 16) ],
- ["41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 ", ?SPACE, [$A || _ <- lists:seq(1, 16)], "\n"] }
- ],
- [ { iolist_to_binary(["Print ", I]), fun() -> ?assertEqual(R, F(I)) end }
- || { I, R } <- Tests ].
-
print_buckets_test_() ->
F = fun print_buckets/1,
Tests = [
--
2.46.0
|
