anchor.diff:    TTestSuite.Create('Data')
       .Ref
       .Add(TTest.Create(TDataTests))
  -    .Add(TTest.Create(TDataConstraintsTest))
       .Add(TTest.Create(TDataFileTest))
       ;
   
  
positive.code:   check(g1.AsSmallString = g2.AsSmallString, 'AsSmallString');
  end;
  
  { TDataConstraintsTest }
  
  procedure TDataConstraintsTest.TestReceiveConstraint;
  begin
    CheckTrue(
      TDataConstraints.Create
        .Ref
        .Add(TFakeConstraint.Create(True, 'id', 'foo'))
        .Evaluate
        .Success
    );
  end;
  
  procedure TDataConstraintsTest.TestGetConstraint;
  begin
    CheckEquals(
      'foo',
      TDataConstraints.Create
        .Ref
        .Add(TFakeConstraint.Create(True, 'id', 'foo'))
        .Evaluate
        .Data
        .AsString
    );
  end;
  
  procedure TDataConstraintsTest.TestEvaluateTrue;
  begin
    CheckTrue(
      TDataConstraints.Create
        .Ref
        .Add(TFakeConstraint.Create(True, 'id', 'foo'))
        .Add(TFakeConstraint.Create(True, 'id', 'foo'))
        .Evaluate
        .Success
    );
  end;
  
  procedure TDataConstraintsTest.TestEvaluateFalse;
  begin
    CheckFalse(
      TDataConstraints.Create
        .Ref
        .Add(TFakeConstraint.Create(False, 'id', 'foo'))
        .Add(TFakeConstraint.Create(False, 'id', 'foo'))
        .Evaluate
        .Success
    );
  end;
  
  procedure TDataConstraintsTest.TestEvaluateTrueAndFalse;
  begin
    CheckFalse(
      TDataConstraints.Create
        .Ref
        .Add(TFakeConstraint.Create(True, 'id', 'foo'))
        .Add(TFakeConstraint.Create(False, 'id', 'foo'))
        .Evaluate
        .Success
    );
  end;
  
  { TDataFileTest }
  
negative.code:     procedure DataParam;
      procedure DataParams;
      procedure DataGuid;
      procedure DataConstraints;
      procedure DataFile;
    end;
  
    TDataFileTest = class(TTestCase)
  