basic101 0.4.0 → 1.0.0

data/test/integration/tests/fast/power.output

@@ -1,4 +0,0 @@
- 8 
- 36.66045 
- 36.66045 
- 22.62742 

data/test/integration/tests/fast/print.bas

@@ -1,6 +0,0 @@
-8 PRINT
-10 PRINT "a";
-20 PRINT "b",
-30 PRINT "c";"d"
-40 PRINT 3.141592653589793
-50 PRINT 0.1

data/test/integration/tests/fast/print.output

@@ -1,4 +0,0 @@
-
-ab            cd
- 3.141593 
- 0.1 

data/test/integration/tests/fast/read_data.bas

@@ -1,15 +0,0 @@
-10 READ I
-30 READ J, A$, B$
-40 PRINT I, J, A$, B$
-50 RESTORE
-60 READ I
-70 PRINT I
-80 RESTORE 150
-90 READ A$
-100 PRINT A$
-130 DATA 1
-140 DATA 2.3
-150 DATA "foo", bar
-160 RESTORE
-170 READ A(0)
-180 PRINT A(0)

data/test/integration/tests/fast/read_data.output

@@ -1,4 +0,0 @@
- 1             2.3          foo           bar
- 1 
-foo
- 1 

data/test/integration/tests/fast/rem.bas

@@ -1 +0,0 @@
-10 REM THIS IS A REMARK

data/test/integration/tests/fast/right.bas

@@ -1 +0,0 @@
-10 PRINT "'"; RIGHT$("abcd", 2); "'"

data/test/integration/tests/fast/right.output

@@ -1 +0,0 @@
-'cd'

data/test/integration/tests/fast/rnd.bas

@@ -1,5 +0,0 @@
-10 PRINT RND(0)
-20 PRINT RND(1)
-30 PRINT RND(0)
-40 PRINT RND(0.1)
-50 PRINT RND(0)

data/test/integration/tests/fast/rnd.output

@@ -1,5 +0,0 @@
- 0 
- 0.5488135 
- 0.5488135 
- 0.7151894 
- 0.7151894 

data/test/integration/tests/fast/sgn.bas

@@ -1,5 +0,0 @@
-10 PRINT SGN(-10)
-20 PRINT SGN(-0.1)
-20 PRINT SGN(0)
-20 PRINT SGN(0.1)
-10 PRINT SGN(10)

data/test/integration/tests/fast/sgn.output

@@ -1,5 +0,0 @@
--1 
--1 
- 0 
- 1 
- 1 

data/test/integration/tests/fast/sin.bas

@@ -1 +0,0 @@
-10 PRINT SIN(3.14159265 / 8)

data/test/integration/tests/fast/sin.output

@@ -1 +0,0 @@
- 0.3826834 

data/test/integration/tests/fast/sqr.bas

@@ -1,2 +0,0 @@
-10 PRINT SQR(2)
-20 PRINT SQR(65536)

data/test/integration/tests/fast/sqr.output

@@ -1,2 +0,0 @@
- 1.414214 
- 256 

data/test/integration/tests/fast/stop.bas

@@ -1,3 +0,0 @@
-10 PRINT "OK"
-20 STOP
-30 PRINT "FAIL"

data/test/integration/tests/fast/stop.output

@@ -1,2 +0,0 @@
-OK
-Break in line 20

data/test/integration/tests/fast/str.bas

@@ -1,3 +0,0 @@
-10 PRINT "'" + STR$(123) + "'"
-20 PRINT "'" + STR$(3.14) + "'"
-30 PRINT "'" + STR$("FOO") + "'"

data/test/integration/tests/fast/str.output

@@ -1,3 +0,0 @@
-'123'
-'3.14'
-'FOO'

data/test/integration/tests/fast/string_addition.bas

@@ -1 +0,0 @@
-10 PRINT "ABC" + "123"

data/test/integration/tests/fast/string_addition.output

@@ -1 +0,0 @@
-ABC123

data/test/integration/tests/fast/string_comparisons.bas

@@ -1,7 +0,0 @@
-10 PRINT "<", "<=", "=", ">=", ">", "<>"
-20 A = "A" : B = "B" : GOSUB 100
-30 A = "B" : B = "B" : GOSUB 100
-40 A = "C" : B = "B" : GOSUB 100
-90 END
-100 PRINT A < B, A <= B, A = B, A >= B, A > B, A <> B
-110 RETURN

data/test/integration/tests/fast/string_comparisons.output

@@ -1,4 +0,0 @@
-<             <=            =             >=            >             <>
--1            -1             0             0             0            -1 
- 0            -1            -1            -1             0             0 
- 0             0             0            -1            -1            -1 

data/test/integration/tests/fast/string_plus_integer.bas

@@ -1 +0,0 @@
-10 PRINT "A" + 1

data/test/integration/tests/fast/string_plus_integer.output

@@ -1 +0,0 @@
-Error on line 10: integer cannot be converted to string

data/test/integration/tests/fast/subtract.bas

@@ -1,5 +0,0 @@
-10 PRINT 1 - 2
-20 PRINT 1.0 - 2
-30 PRINT 1 - 2.0
-40 PRINT 1.1 - 2.2
-50 PRINT 8 - 4 - 2 - 1

data/test/integration/tests/fast/subtract.output

@@ -1,5 +0,0 @@
--1 
--1 
--1 
--1.1 
- 1 

data/test/integration/tests/fast/tab.bas

@@ -1,4 +0,0 @@
-10 PRINT TAB(10); "A"; TAB(20); "B"
-20 PRINT TAB(20);
-30 PRINT "C"; TAB(10); "D"
-50 PRINT TAB(0); "X"

data/test/integration/tests/fast/tab.output

@@ -1,3 +0,0 @@
-          A         B
-                    CD
-X

data/test/integration/tests/fast/tan.bas

@@ -1 +0,0 @@
-10 PRINT TAN(3.14159265 / 8)

data/test/integration/tests/fast/tan.output

@@ -1 +0,0 @@
- 0.4142136 

data/test/integration/tests/fast/val.bas

@@ -1,3 +0,0 @@
-10 PRINT VAL("123")
-20 PRINT VAL("123.45")
-30 PRINT VAL("  -1  ")

data/test/integration/tests/fast/val.output

@@ -1,3 +0,0 @@
- 123 
- 123.45 
--1 

data/test/spec/argument_checker_spec.rb

@@ -1,128 +0,0 @@
-require_relative 'spec_helper'
-
-module Basic101
-
-  describe ArgumentChecker do
-
-    subject {described_class.new(args, required_types, optional_types)}
-
-    context 'when takes [string]' do
-
-      let(:required_types) {[BasicString]}
-      let(:optional_types) {[]}
-
-      context 'when given [string]' do
-        let(:args) {[BasicString.new('')]}
-        specify do
-          expect{subject.check}.to_not raise_error
-        end
-      end
-
-      context 'when given []' do
-        let(:args) {[]}
-        specify do
-         expect do
-            subject.check
-         end.to raise_error InvalidArgumentError,
-          'Wrong number of arguments (0 instead of 1)'
-        end
-      end
-
-      context 'when given [string, string]' do
-        let(:args) {[BasicString.new(''), BasicString.new('')]}
-        specify do
-         expect do
-            subject.check
-         end.to raise_error InvalidArgumentError,
-          'Wrong number of arguments (2 instead of 1)'
-        end
-      end
-
-      context 'when given [integer]' do
-        let(:args) {[BasicInteger.new('')]}
-        specify do
-          expect do
-            subject.check
-          end.to raise_error InvalidArgumentError,
-          'Expected string but got integer'
-        end
-      end
-
-    end
-
-    context 'when takes [integer, integer?]' do
-
-      let(:required_types) {[BasicInteger]}
-      let(:optional_types) {[BasicInteger]}
-
-      context 'when given [integer]' do
-        let(:args) {[BasicInteger.new(0)]}
-        specify do
-         expect do
-            subject.check
-         end.to_not raise_error
-        end
-      end
-
-      context 'when given [integer, integer]' do
-        let(:args) {[BasicInteger.new(0), BasicInteger.new(0)]}
-        specify do
-          expect{subject.check}.to_not raise_error
-        end
-      end
-
-      context 'when given []' do
-        let(:args) {[]}
-        specify do
-         expect do
-            subject.check
-         end.to raise_error InvalidArgumentError,
-          'Wrong number of arguments (0 instead of 1..2)'
-        end
-      end
-
-      context 'when given [integer, integer, integer]' do
-        let(:args) {3.times.map {BasicInteger.new(0)}}
-        specify do
-         expect do
-            subject.check
-         end.to raise_error InvalidArgumentError,
-          'Wrong number of arguments (3 instead of 1..2)'
-        end
-      end
-
-      context 'when given [integer]' do
-        let(:args) {[BasicString.new('')]}
-        specify do
-          expect do
-            subject.check
-          end.to raise_error InvalidArgumentError,
-          'Expected integer but got string'
-        end
-      end
-
-      context 'when given [integer, string]' do
-        let(:args) {[BasicString.new('')]}
-        specify do
-          expect do
-            subject.check
-          end.to raise_error InvalidArgumentError,
-          'Expected integer but got string'
-        end
-      end
-
-      context 'when given [string, string]' do
-        let(:args) {[BasicString.new('')]}
-        specify do
-          expect do
-            subject.check
-          end.to raise_error InvalidArgumentError,
-          'Expected integer but got string'
-        end
-      end
-
-    end
-
-  end
-
-end

data/test/spec/basic_array_spec.rb

@@ -1,100 +0,0 @@
-require_relative 'spec_helper'
-
-module Basic101
-
-  describe BasicArray do
-
-    let(:default) {BasicInteger.new(0)}
-    subject {BasicArray.new(num_dimensions, default)}
-
-    describe 'default dimensions' do
-
-      context 'when 1 dimension' do
-        let(:num_dimensions) {1}
-        it 'should set each element to the default' do
-          expect(subject.get([0])).to eq default
-          expect(subject.get([10])).to eq default
-        end
-      end
-
-      context 'when 2 dimensions' do
-        let(:num_dimensions) {2}
-        it 'should set each element to the default' do
-          expect(subject.get([0, 0])).to eq default
-          expect(subject.get([0, 10])).to eq default
-          expect(subject.get([10, 0])).to eq default
-          expect(subject.get([10, 10])).to eq default
-        end
-      end
-
-    end
-
-    describe '#dimension' do
-
-      context 'when normal' do
-        let(:num_dimensions) {2}
-        before(:each) {subject.dimension([2, 3])} 
-        it 'should set each element to the default' do
-          expect(subject.get([0, 0])).to eq default
-          expect(subject.get([0, 3])).to eq default
-          expect(subject.get([2, 0])).to eq default
-          expect(subject.get([2, 3])).to eq default
-        end
-      end
-
-      context 'max index 0' do
-        let(:num_dimensions) {1}
-        before(:each) {subject.dimension([0])} 
-        specify do
-          expect(subject.get([0])).to eq default
-        end
-      end
-
-      context 'negative max index' do
-        let(:num_dimensions) {1}
-        specify do
-          expect{subject.dimension([-1])}.to raise_error ArraySizeError
-        end
-      end
-
-    end
-
-    describe '#set' do
-      let(:num_dimensions) {2}
-      before(:each) do
-        subject.dimension([1, 1])
-        subject.set([0, 0], BasicInteger.new(1))
-        subject.set([0, 1], BasicInteger.new(2))
-        subject.set([1, 0], BasicInteger.new(3))
-        subject.set([1, 1], BasicInteger.new(4))
-      end
-      specify {expect(subject.get([0, 0])).to eq BasicInteger.new(1)}
-      specify {expect(subject.get([0, 1])).to eq BasicInteger.new(2)}
-      specify {expect(subject.get([1, 0])).to eq BasicInteger.new(3)}
-      specify {expect(subject.get([1, 1])).to eq BasicInteger.new(4)}
-    end
-
-    describe 'bounds checking' do
-
-      let(:num_dimensions) {2}
-
-      it 'should reject negative indices' do
-        expect{subject.get([0, -1])}.to raise_error IndexError
-      end
-
-      it 'should reject too few indices' do
-        expect{subject.get([0])}.to raise_error IndexError
-      end
-
-      it 'should reject too many indices' do
-        expect{subject.get([0, 0, 0])}.to raise_error IndexError
-      end
-
-      it 'should reject too large an index' do
-        expect{subject.get([0, 11])}.to raise_error IndexError
-      end
-    end
-
-  end
-
-end