The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

LBROCARD / Number-DataRate-0.31 / t / simple.t 

            

              
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

              
#!perl
use strict;
use warnings;
use Test::More tests => 48;
use Number::DataRate;
# Examples from
# http://en.wikipedia.org/wiki/List_of_device_bandwidths
# http://en.wikipedia.org/wiki/Data_rate_units
my $data_rate = Number::DataRate->new;
# TTY
# 0.045 kbit/s
is( $data_rate->to_bits_per_second('0.045 kbit/s'),  '45' );
is( $data_rate->to_bits_per_second('0.045 kb/s'),    '45' );
is( $data_rate->to_bits_per_second('0.045 kbitps'),  '45' );
is( $data_rate->to_bits_per_second('0.045 kbps'),    '45' );
is( $data_rate->to_bytes_per_second('0.045 kbit/s'), '5.625' );
is( $data_rate->to_bytes_per_second('0.045 kb/s'),   '5.625' );
is( $data_rate->to_bytes_per_second('0.045 kbitps'), '5.625' );
is( $data_rate->to_bytes_per_second('0.045 kbps'),   '5.625' );
is( $data_rate->to_bits_per_second('5.625Byte/s'),  '45' );
is( $data_rate->to_bits_per_second('5.625B/s'),     '45' );
is( $data_rate->to_bits_per_second('5.625Byteps'),  '45' );
is( $data_rate->to_bits_per_second('5.625Bps'),     '45' );
is( $data_rate->to_bytes_per_second('5.625Byte/s'), '5.625' );
is( $data_rate->to_bytes_per_second('5.625B/s'),    '5.625' );
is( $data_rate->to_bytes_per_second('5.625Byte/s'), '5.625' );
is( $data_rate->to_bytes_per_second('5.625Bps'),    '5.625' );
# 2400 baud modem
# 9.6 kbit/s
is( $data_rate->to_bits_per_second('9.6 kbit/s'),  '9600' );
is( $data_rate->to_bytes_per_second('9.6 kbit/s'), '1200' );
# GSM
# 14.4 kbit/s
is( $data_rate->to_bits_per_second('14.4 kbit/s'),  '14400' );
is( $data_rate->to_bytes_per_second('14.4 kbit/s'), '1800' );
# ISDN
# 64 kbit/s
is( $data_rate->to_bits_per_second('64 kbit/s'),  '64000' );
is( $data_rate->to_bytes_per_second('64 kbit/s'), '8000' );
# Bluetooth 1.1
# 1000 kbit/s
is( $data_rate->to_bits_per_second('1000 kbit/s'),  '1000000' );
is( $data_rate->to_bytes_per_second('1000 kbit/s'), '125000' );
# Bluetooth 2.0+EDR
# 3000 kbit/s
is( $data_rate->to_bits_per_second('3000 kbit/s'),  '3000000' );
is( $data_rate->to_bytes_per_second('3000 kbit/s'), '375000' );
# Ethernet (10base-X)
# 10 Mbit/s
is( $data_rate->to_bits_per_second('10 Mbit/s'),  '10000000' );
is( $data_rate->to_bytes_per_second('10 Mbit/s'), '1250000' );
# ADSL2+
# 24,576 kbit/s
is( $data_rate->to_bits_per_second('24,576 kbit/s'),  '24576000' );
is( $data_rate->to_bytes_per_second('24,576 kbit/s'), '3072000' );
# 802.11g OFDM 0.125
# 54.0 Mbit/s
is( $data_rate->to_bits_per_second('54.0 Mbit/s'),  '54000000' );
is( $data_rate->to_bytes_per_second('54.0 Mbit/s'), '6750000' );
# Fast Ethernet (100base-X)
# 100 Mbit/s
is( $data_rate->to_bits_per_second('100 Mbit/s'),  '100000000' );
is( $data_rate->to_bytes_per_second('100 Mbit/s'), '12500000' );
# 802.11n
# 248.0 Mbit/s
is( $data_rate->to_bits_per_second('248.0 Mbit/s'),   '248000000' );
is( $data_rate->to_bytes_per_second('1248.0 Mbit/s'), '156000000' );
# Gigabit Ethernet (1000base-X)
# 1000 Mbit/s
is( $data_rate->to_bits_per_second('1000 Mbit/s'),  '1000000000' );
is( $data_rate->to_bytes_per_second('1000 Mbit/s'), '125000000' );
# PC100 SDRAM
# 6.4 Gbit/s
is( $data_rate->to_bits_per_second('6.4 Gbit/s'),  '6400000000' );
is( $data_rate->to_bytes_per_second('6.4 Gbit/s'), '800000000' );
# 10 gigabit Ethernet (10Gbase-X)
# 10,000 Mbit/s
is( $data_rate->to_bits_per_second('10,000 Mbit/s'),  '10000000000' );
is( $data_rate->to_bytes_per_second('10,000 Mbit/s'), '1250000000' );
# PC2-5300 DDR2-SDRAM (dual channel)
# 84.8 Gbit/s
is( $data_rate->to_bits_per_second('84.8 Gbit/s'),  '84800000000' );
is( $data_rate->to_bytes_per_second('84.8 Gbit/s'), '10600000000' );
# 100 gigabit Ethernet (100Gbase-X)
# 100,000 Mbit/s
is( $data_rate->to_bits_per_second('100,000 Mbit/s'),  '100000000000' );
is( $data_rate->to_bytes_per_second('100,000 Mbit/s'), '12500000000' );
# SEA-ME-WE 4 submarine cable
# 1.28Tbit/s
is( $data_rate->to_bits_per_second('1.28Tbit/s'),  '1280000000000' );
is( $data_rate->to_bytes_per_second('1.28Tbit/s'), '160000000000' );