jssm 5.44.0 → 5.46.0

package/src/ts/tests/machine_attributes.spec.ts

@@ -1,398 +0,0 @@
-
-import { sm } from '../jssm';
-
-const r639 = require('reduce-to-639-1').reduce;
-
-
-
-
-
-test.todo('Most of this machine_attributes stuff should be rewritten as table-driven and/or stoch');
-
-
-
-
-
-describe('machine_name', () => {
-
-  test('atom', () =>
-    expect(() => { const _foo = sm`machine_name: bob; a->b;`; })
-      .not.toThrow() );
-
-  test('quoted string', () =>
-    expect(() => { const _foo = sm`machine_name: "bo b"; a->b;`; })
-      .not.toThrow() );
-
-  test('retval correct', () =>
-    expect(sm`machine_name: testval; a->b;`.machine_name() )
-      .toBe('testval') );
-
-});
-
-
-
-
-
-describe('machine_language', () => {
-
-  const eachTest = (name, lang) => {
-
-    test(`${name} machine_language with transclusion is correct for sm\`machine_language: ${lang}; a->b;\``, () =>
-      expect( ((sm`machine_language: ${lang}; a->b;`).machine_language()) )
-        .toBe( r639(lang) ) );
-
-    test.todo('machine_attributes spec more available');
-
-    // test(`${name} machine_language with transclusion is correct for sm\`machine_language: "${lang}"; a->b;\``, () =>
-    //    t.is(r639(lang), ((sm`machine_language: "${lang}"; a->b;`).machine_language()) ) );
-
-  };
-
-  test(`Eng hand-written is correct without quotes`, () =>
-    expect(((sm`machine_language: EnGlIsH; a->b;`).machine_language() ))
-      .toBe('en') );
-
-  test(`Eng hand-written is correct with quotes`, () =>
-    expect(((sm`machine_language: "EnGlIsH"; a->b;`).machine_language() ))
-      .toBe('en') );
-
-  test(`Amharic hand-written is correct without quotes`, () =>
-    expect(((sm`machine_language: አማርኛ; a->b;`).machine_language() ))
-      .toBe('am') );
-
-  test.todo('machine_attributes spec more available 2');
-
-  // test(`Amharic hand-written is correct with quotes`, () =>
-  //   t.is('am', ((sm`machine_language: "አማርኛ"; a->b;`).machine_language()) ) );
-
-  eachTest('atom correct case', 'English');
-  eachTest('atom lowercase',    'english');
-  eachTest('atom mixedcase',    'eNGliSH');
-  eachTest('amharic',           'አማርኛ');
-
-});
-
-
-
-
-
-describe('machine_author', () => {
-
-  test('single atom', () =>
-    expect( () => { const _foo = sm`machine_author: bob; a->b;`; })
-      .not.toThrow() );
-
-  test('single quoted string', () =>
-    expect( () => { const _foo = sm`machine_author: "bo b"; a->b;`; })
-      .not.toThrow() );
-
-  test('atom list', () =>
-    expect( () => { const _foo = sm`machine_author: [bob dobbs]; a->b;`; })
-      .not.toThrow() );
-
-  test('quoted string list', () =>
-    expect( () => { const _foo = sm`machine_author: ["bo b" "do bbs"]; a->b;`; })
-      .not.toThrow() );
-
-  test('mixed list a/q', () =>
-    expect( () => { const _foo = sm`machine_author: [bob "do bbs"]; a->b;`; })
-      .not.toThrow() );
-
-  test('mixed list q/a', () =>
-    expect( () => { const _foo = sm`machine_author: ["bo b" dobbs]; a->b;`; })
-      .not.toThrow() );
-
-
-  test('single retval', () =>
-    expect(sm`machine_author: testval; a->b;`.machine_author() )
-      .toEqual(['testval']) );
-
-  test('multiple retval', () =>
-    expect(sm`machine_author: [bob david]; a->b;`.machine_author() )
-      .toEqual(['bob','david']) );
-
-});
-
-
-
-
-
-describe('machine_contributor', () => {
-
-  test('atom', () =>
-    expect( () => { const _ = sm`machine_contributor: bob; a->b;`; })
-      .not.toThrow() );
-
-  test('quoted string', () =>
-    expect( () => { const _ = sm`machine_contributor: "bo b"; a->b;`; })
-      .not.toThrow() );
-
-  test('atom list', () =>
-    expect( () => { const _ = sm`machine_contributor: [bob dobbs]; a->b;`; })
-      .not.toThrow() );
-
-  test('quoted string list', () =>
-    expect( () => { const _ = sm`machine_contributor: ["bo b" "do bbs"]; a->b;`; })
-      .not.toThrow() );
-
-  test('mixed list a/q', () =>
-    expect( () => { const _ = sm`machine_contributor: [bob "do bbs"]; a->b;`; })
-      .not.toThrow() );
-
-  test('mixed list q/a', () =>
-    expect( () => { const _ = sm`machine_contributor: ["bo b" dobbs]; a->b;`; })
-      .not.toThrow() );
-
-
-  test('single retval',   () =>
-    expect(sm`machine_contributor: testval; a->b;`.machine_contributor() )
-      .toEqual(["testval"]) );
-
-  test('multiple retval', () =>
-    expect(sm`machine_contributor: [bob david]; a->b;`.machine_contributor() )
-      .toEqual(['bob','david']) );
-
-});
-
-
-
-
-
-describe('machine_comment', () => {
-
-  test('atom', () =>
-    expect( () => { const _foo = sm`machine_comment: bob; a->b;`; })
-      .not.toThrow() );
-
-  test('quoted string', () =>
-    expect( () => { const _foo = sm`machine_comment: "bo b"; a->b;`; })
-      .not.toThrow() );
-
-  test('retval correct', () =>
-    expect(sm`machine_comment: testval; a->b;`.machine_comment() )
-      .toBe("testval") );
-
-});
-
-
-
-
-
-describe('machine_definition', () => {
-
-  test('url', () =>
-    expect( () => { const _foo = sm`machine_definition: http://google.com/ ; a->b;`; })
-      .not.toThrow() );
-
-  test('url botched', () =>
-    expect( () => { const _foo = sm`machine_definition: "not a url"; a->b;`; })
-      .toThrow() );
-
-  test('retval correct', () =>
-    expect(sm`machine_definition: http://google.com/ ; a->b;`.machine_definition() )
-      .toBe("http://google.com/") );
-
-});
-
-
-
-
-
-describe('machine_version', () => {
-
-  test('semver 0.0.0', () =>
-    expect( () => { const _f = sm`machine_version: 0.0.0; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 0.0.1', () =>
-    expect( () => { const _f = sm`machine_version: 0.0.1; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 0.1.0', () =>
-    expect( () => { const _f = sm`machine_version: 0.1.0; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 1.0.0', () =>
-    expect( () => { const _f = sm`machine_version: 1.0.0; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 1.0.1', () =>
-    expect( () => { const _f = sm`machine_version: 1.0.1; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 1.1.1', () =>
-    expect( () => { const _f = sm`machine_version: 1.1.1; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 2.0.0', () =>
-    expect( () => { const _f = sm`machine_version: 2.0.0; a->b;`; })
-      .not.toThrow() );
-
-
-  test('semver notAS', () =>
-    expect(() => { const _f = sm`machine_version: "Not a semver"; a->b;`; })
-      .toThrow() );
-
-
-  test('retval correct', () =>
-    expect(sm`machine_version: 0.0.0; a->b;`.machine_version())
-      .toEqual({full:"0.0.0", major:0, minor:0, patch:0}) );
-
-});
-
-
-
-
-
-describe('machine_license', () => {
-
-  test('retval correct', () =>
-    expect( sm`machine_license: testval; a->b;`.machine_license() )
-      .toBe("testval") );
-
-
-  describe('near', () => {
-
-    test('Public domain', () =>
-      expect( () => { const _ = sm`machine_license:Public domain; a->b;`; })
-        .not.toThrow() );
-
-    test('MIT', () =>
-      expect( () => { const _ = sm`machine_license:MIT; a->b;`; })
-        .not.toThrow() );
-
-    test('BSD 2-clause', () =>
-      expect( () => { const _ = sm`machine_license:BSD 2-clause; a->b;`; })
-        .not.toThrow() );
-
-    test('BSD 3-clause', () =>
-      expect( () => { const _ = sm`machine_license:BSD 3-clause; a->b;`; })
-        .not.toThrow() );
-
-    test('Apache 2.0', () =>
-      expect( () => { const _ = sm`machine_license:Apache 2.0; a->b;`; })
-        .not.toThrow() );
-
-    test('Mozilla 2.0', () =>
-      expect( () => { const _ = sm`machine_license:Mozilla 2.0; a->b;`; })
-        .not.toThrow() );
-
-    test('GPL v2', () =>
-      expect( () => { const _ = sm`machine_license:GPL v2; a->b;`; })
-        .not.toThrow() );
-
-    test('GPL v3', () =>
-      expect( () => { const _ = sm`machine_license:GPL v3; a->b;`; })
-        .not.toThrow() );
-
-    test('LGPL v2.1', () =>
-      expect( () => { const _ = sm`machine_license:LGPL v2.1; a->b;`; })
-        .not.toThrow() );
-
-    test('LGPL v3.0', () =>
-      expect( () => { const _ = sm`machine_license:LGPL v3.0; a->b;`; })
-        .not.toThrow() );
-
-  });
-
-
-  describe('spaced', () => {
-
-    test('Public domain', () =>
-      expect( () => { const _ = sm`machine_license: Public domain ; a->b;`; })
-      .not.toThrow() );
-
-    test('MIT', () =>
-      expect( () => { const _ = sm`machine_license: MIT ; a->b;`; })
-      .not.toThrow() );
-
-    test('BSD 2-clause', () =>
-      expect( () => { const _ = sm`machine_license: BSD 2-clause ; a->b;`; })
-      .not.toThrow() );
-
-    test('BSD 3-clause', () =>
-      expect( () => { const _ = sm`machine_license: BSD 3-clause ; a->b;`; })
-      .not.toThrow() );
-
-    test('Apache 2.0', () =>
-      expect( () => { const _ = sm`machine_license: Apache 2.0 ; a->b;`; })
-      .not.toThrow() );
-
-    test('Mozilla 2.0', () =>
-      expect( () => { const _ = sm`machine_license: Mozilla 2.0 ; a->b;`; })
-      .not.toThrow() );
-
-    test('GPL v2', () =>
-      expect( () => { const _ = sm`machine_license: GPL v2 ; a->b;`; })
-      .not.toThrow() );
-
-    test('GPL v3', () =>
-      expect( () => { const _ = sm`machine_license: GPL v3 ; a->b;`; })
-      .not.toThrow() );
-
-    test('LGPL v2.1', () =>
-      expect( () => { const _ = sm`machine_license: LGPL v2.1 ; a->b;`; })
-      .not.toThrow() );
-
-    test('LGPL v3.0', () =>
-      expect( () => { const _ = sm`machine_license: LGPL v3.0 ; a->b;`; })
-      .not.toThrow() );
-
-  });
-
-
-  test('single atom', () =>
-    expect( () => { const _ = sm`machine_license: bob; a->b;`; })
-      .not.toThrow() );
-
-  test('single quoted string', () =>
-    expect( () => { const _ = sm`machine_license: "bo b"; a->b;`; })
-      .not.toThrow() );
-
-});
-
-
-
-
-
-describe('fsl_version', () => {
-
-  test('semver 0.0.0', () =>
-    expect( () => { const _f = sm`fsl_version: 0.0.0; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 0.0.1', () =>
-    expect( () => { const _f = sm`fsl_version: 0.0.1; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 0.1.0', () =>
-    expect( () => { const _f = sm`fsl_version: 0.1.0; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 1.0.0', () =>
-    expect( () => { const _f = sm`fsl_version: 1.0.0; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 1.0.1', () =>
-    expect( () => { const _f = sm`fsl_version: 1.0.1; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 1.1.1', () =>
-    expect( () => { const _f = sm`fsl_version: 1.1.1; a->b;`; })
-      .not.toThrow() );
-
-  test('semver 2.0.0', () =>
-    expect( () => { const _f = sm`fsl_version: 2.0.0; a->b;`; })
-      .not.toThrow() );
-
-
-  test('semver notAS', () =>
-    expect(() => { const _f = sm`fsl_version: "Not a semver"; a->b;`; })
-      .toThrow() );
-
-
-  test('retval correct', () =>
-    expect(sm`fsl_version: 0.0.0; a->b;`.fsl_version())
-      .toEqual({full:"0.0.0", major:0, minor:0, patch:0}) );
-
-});

package/src/ts/tests/machine_name.spec.ts

@@ -1,14 +0,0 @@
-
-import { sm } from '../jssm';
-
-
-
-
-
-describe('machine name', () => {
-
-  test('doesn\'t throw', () =>
-    expect( () => { const _foo = sm`machine_name: bob; a->b;`; }).not.toThrow()
-  );
-
-});

package/src/ts/tests/named lists.spec.ts

@@ -1,24 +0,0 @@
-
-import * as jssm from '../jssm';
-
-
-
-
-
-// TODO these tests only assert non-crashing
-// That amn't very good, sah
-
-test.todo('Assert better than non-crashing in named lists.spec.ts');
-
-describe('named lists', () => {
-
-  test('alone', () =>
-    expect(() => { jssm.parse('&b: [a c e];'); }).not.toThrow() );
-
-  test('before trans', () =>
-    expect(() => { jssm.parse('&b: [a c e]; a->c;'); }).not.toThrow() );
-
-  test('after trans', () =>
-    expect(() => { jssm.parse('a->c; &b: [a c e];'); }).not.toThrow() );
-
-});

package/src/ts/tests/nominated states.spec.ts

@@ -1,133 +0,0 @@
-
-import * as jssm from '../jssm';
-
-const sm   = jssm.sm,
-      jp   = jssm.parse;
-
-
-
-
-
-describe('simple naming', () => {
-
-
-
-  describe('parse', () => {
-
-    test('trans then node', () =>
-      expect(() => {
-        jp('a -> b; state a: { color: orange; };');
-      }).not.toThrow() );
-
-    test('node then trans', () =>
-      expect(() => {
-        jp('state a: { color: orange; }; a -> b;');
-      }).not.toThrow() );
-
-    test('cycle node named', () =>
-      expect(() => {
-        jp('[a b] -> +1; state a: { color: red; }; &b: [a c e];');
-      }).not.toThrow() );
-
-    test('two properties', () =>
-      expect(() => {
-        jp('a -> b; state a: { color: orange; shape: circle; };');
-      }).not.toThrow() );
-
-  });
-
-
-
-  describe('sm tag', () => {
-
-    test('trans then node', () =>
-      expect(() => {
-        sm`a -> b; state a: { color: orange; };`;
-      }).not.toThrow() );
-
-    test('node then trans', () =>
-      expect(() => {
-        sm`state a: { color: orange; }; a -> b;`;
-    }).not.toThrow() );
-
-    test.todo('Uncomment when named nodes work');
-
-//  test('cycle node named', () =>
-//    expect(() => {
-//      sm`[a b] -> +1; state a: { color: red; }; &b: [a c e];`;
-//    }).not.toThrow() );
-
-    test('two properties', () =>
-      expect(() => {
-        sm`a -> b; state a: { color: orange; shape: circle; };`;
-      }).not.toThrow() );
-
-  });
-
-});
-
-
-
-
-
-describe('spacing variants', () => {
-
-  test('tight', () =>
-    expect(() => {
-      jp('a -> b; state a:{color:orange;};');
-    }).not.toThrow() );
-
-  test('framed', () =>
-    expect(() => {
-      jp('a -> b; state a:{ color:orange; };');
-    }).not.toThrow() );
-
-  test('sentence', () =>
-    expect(() => {
-      jp('a -> b; state a:{ color: orange; };');
-    }).not.toThrow() );
-
-  test('fully', () =>
-    expect(() => {
-      jp('a -> b; state a:{ color : orange; };');
-    }).not.toThrow() );
-
-  test('mars', () =>
-    expect(() => {
-      jp('a -> b; state a:{color : orange;};');
-    }).not.toThrow() );
-
-});
-
-
-
-
-
-describe('properties', () => {
-
-  test('color', () =>
-
-    expect(
-     sm`a -> b; state a:{color:orange;};`.raw_state_declarations()[0]
-    ).toEqual(
-      {state:'a', color:'#ffa500ff', declarations:[{key: "color", value: "#ffa500ff"}]}
-    )
-
-  );
-
-});
-
-
-
-
-
-test.todo('More to do in nominated states');
-
-
-
-
-
-// TODO FIXME TESTME test state_delarations/0
-// TODO FIXME TESTME test state_delaration/1 for has
-// TODO FIXME TESTME test state_delaration/1 for doesn't have
-// TODO FIXME TESTME test that redeclaring a state throws

package/src/ts/tests/parse actions.spec.ts

@@ -1,32 +0,0 @@
-
-/* eslint-disable max-len */
-
-import { sm } from '../jssm';
-
-
-
-
-
-describe('matter', () => {
-
-    const matter = sm` Solid 'Heat' <-> 'Cool' Liquid 'Heat' <-> 'Cool' Gas 'Heat' <-> 'Cool' Plasma; `;
-
-    test( 'starts Solid',    () => expect(matter.state()        ).toBe( 'Solid'  ) );
-    test( 'Heat is true',    () => expect(matter.action('Heat') ).toBe( true     ) );
-    test( 'is now Liquid',   () => expect(matter.state()        ).toBe( 'Liquid' ) );
-    test( 'Heat is true 2',  () => expect(matter.action('Heat') ).toBe( true     ) );
-    test( 'is now Gas',      () => expect(matter.state()        ).toBe( 'Gas'    ) );
-    test( 'Heat is true 3',  () => expect(matter.action('Heat') ).toBe( true     ) );
-    test( 'is now Plasma',   () => expect(matter.state()        ).toBe( 'Plasma' ) );
-    test( 'Heat is false',   () => expect(matter.action('Heat') ).toBe( false    ) );
-    test( 'is now Plasma 2', () => expect(matter.state()        ).toBe( 'Plasma' ) );
-    test( 'Cool is true',    () => expect(matter.action('Cool') ).toBe( true     ) );
-    test( 'is now Gas 2',    () => expect(matter.state()        ).toBe( 'Gas'    ) );
-    test( 'Cool is true 2',  () => expect(matter.action('Cool') ).toBe( true     ) );
-    test( 'is now Liquid 2', () => expect(matter.state()        ).toBe( 'Liquid' ) );
-    test( 'Cool is true 3',  () => expect(matter.action('Cool') ).toBe( true     ) );
-    test( 'is now Solid',    () => expect(matter.state()        ).toBe( 'Solid'  ) );
-    test( 'Cool is false',   () => expect(matter.action('Cool') ).toBe( false    ) );
-    test( 'is now Solid 2',  () => expect(matter.state()        ).toBe( 'Solid'  ) );
-
-});

package/src/ts/tests/parse.spec.ts

@@ -1,94 +0,0 @@
-
-/* eslint-disable max-len */
-
-import * as jssm from '../jssm';
-
-
-
-
-
-describe('parse/1', () => {
-
-  describe('forward arrow', () => {
-
-    const AtoB = [{"key": "transition", "from": "a", "se": {"kind": "->","to": "b"}}],
-          AdB  = [{"key": "transition", "from": "a", "se": {"kind": "->","to": "b","l_desc": [{"key":"arc_label","value":"d"}]}}],
-          ABd  = [{"key": "transition", "from": "a", "se": {"kind": "->","to": "b","r_desc": [{"key":"arc_label","value":"d"}]}}],
-          AdBd = [{"key": "transition", "from": "a", "se": {"kind": "->","to": "b","l_desc": [{"key":"arc_label","value":"d"}],"r_desc": [{"key":"arc_label","value":"f"}]}}];
-
-    const echo_equal = (testt, validator) =>
-      test(testt, () =>
-        expect(jssm.parse(testt))
-          .toEqual(validator) );
-
-    const ShouldEqualAtoB = ['a->b;', 'a ->b;', 'a-> b;', 'a -> b;', 'a{}->b;', 'a->{}b;', 'a{}->{}b;'];
-    ShouldEqualAtoB.map(p => echo_equal(p, AtoB));
-
-    echo_equal('a{arc_label:d;}->b;',               AdB);
-    echo_equal('a{arc_label:"d";}->b;',             AdB);
-    echo_equal('a->{arc_label:d;}b;',               ABd);
-    echo_equal('a{arc_label:d;}->{arc_label:f;}b;', AdBd);
-
-  });
-
-  describe('double arrow', () => {
-
-    const AtoB = [{"key": "transition", "from": "a", "se": {"kind": "<->","to": "b"}}],
-          AdB  = [{"key": "transition", "from": "a", "se": {"kind": "<->","to": "b","l_desc": [{"key":"arc_label","value":"d"}]}}],
-          ABd  = [{"key": "transition", "from": "a", "se": {"kind": "<->","to": "b","r_desc": [{"key":"arc_label","value":"d"}]}}],
-          AdBd = [{"key": "transition", "from": "a", "se": {"kind": "<->","to": "b","l_desc": [{"key":"arc_label","value":"d"}],"r_desc": [{"key":"arc_label","value":"f"}]}}];
-
-    const echo_equal = (testt, validator) =>
-      test(testt, () =>
-        expect(jssm.parse(testt))
-          .toEqual(validator) );
-
-    const ShouldEqualAtoB = ['a<->b;', 'a <->b;', 'a<-> b;', 'a <-> b;', 'a{}<->b;', 'a<->{}b;', 'a{}<->{}b;'];
-    ShouldEqualAtoB.map(p => echo_equal(p, AtoB));
-
-    echo_equal('a{arc_label:d;}<->b;',               AdB);
-    echo_equal('a{arc_label:"d";}<->b;',             AdB);
-    echo_equal('a<->{arc_label:d;}b;',               ABd);
-    echo_equal('a{arc_label:d;}<->{arc_label:f;}b;', AdBd);
-
-  });
-
-  describe('chain', () => {
-    const AtoBtoC = [{"key":"transition","from":"a","se":{"kind":"->","to":"b","se":{"kind":"->","to":"c"}}}];
-    test('a->b->c;', () =>
-      expect( jssm.parse('a->b->c;') )
-        .toEqual(AtoBtoC) );
-  });
-
-  describe('sequence', () => {
-    const AtoB_CtoD = [{"key":"transition","from":"a","se":{"kind":"->","to":"b"}},{"key":"transition","from":"c","se":{"kind":"->","to":"d"}}];
-    test('a->b;c->d;', () =>
-      expect( jssm.parse('a->b;c->d;') )
-        .toEqual(AtoB_CtoD) );
-  });
-
-  test.todo('graph inputs, graph outputs in parse.spec');
-
-  // todo: graph: {inputs: [foo]}
-  // todo: graph: {outputs: [foo]}
-
-  test.todo('improve torture in parse.spec');
-
-  describe('torture', () => {
-
-    const augh = `
-      a->b-> c-> d -> e
-->
-f <- g <= h <-> i <=> j ~> k <~ l <~> m <~-> n <-~> o <=~> p <~=> q <-=> r <=-> s 'A' <= 'B' t;
-
-a ← b2 ⇐ c2 ↚ d2 → e2 ⇒ f2 ↛ g2 ↔ h2 ⇔ i2 ↮ j2 ←⇒ k2 ⇐→ l2 ←↛ m2 ↚→ n2 ⇐↛ o2 ↚⇒ p2;
-
-`;
-
-    test('doesn\'t throw', () => expect(() => { jssm.parse(augh); }).not.toThrow() );
-
-  });
-
-});
-
-// stochable