Axiom.Runtime.UnitTests._Builtins.atom_1_struct C# (CSharp) Method

atom_1_struct() private method

private atom_1_struct ( ) : void
return void
        public void atom_1_struct()
        {
            AbstractMachineState state = SetupMachine();
            AMProgram program = (AMProgram)state.Program;

            _p = new AtomPredicate();

            AbstractTerm X0 = (AbstractTerm)state["X0"];

            X0.Assign(new StructureTerm("f", 1));

            Choicepoint b = new Choicepoint();
            ProgramClause nextClause = new ProgramClause();
            state.B = new Choicepoint(0, null, null, b, nextClause, 2, null);

            Verify("atom", 1);
            _p.Execute(state);

            Assert.AreSame(nextClause, program.P);
        }