blob: c0774e727915b589f4b0690eb2327ba1c837783b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
%% -*- erlang-indent-level: 2 -*-
%%-------------------------------------------------------------------
-module(bs_bitsize).
-export([test/0]).
test() ->
true = bitsize_in_body(<<1:42>>),
true = bitsize_in_guard(<<1:7>>),
8 = constant_binary(42),
ok.
bitsize_in_body(Bin) ->
42 =:= erlang:bit_size(Bin).
bitsize_in_guard(Bin) when erlang:bit_size(Bin) rem 7 =:= 0 ->
true;
bitsize_in_guard(Bin) when is_bitstring(Bin) ->
false.
%% Tests that binary constants can properly be treated in Icode
constant_binary(N) when N > 0 ->
bit_size(<<42>>).
|
