using Nemerle.Utility;

[System.Flags]
enum SomeFlags {
  | Flag1 = 0x01
  | Flag2 = 0x02
  | Flag3 = 0x04
  | FlagAll = 0xff
}

interface IFoo
{
  Foo : int { get; }
  Bar : string { get; set; }
}

class D : IFoo
{
  [Accessor]
  foo : int = 42;

  [Accessor (flags = WantSetter)]
  mutable bar : string = "qux";
}

class C
{
  [Accessor]
  some_field : int = 42;

  [Accessor (flags = WantSetter)]
  mutable some_other : bool;

  [Accessor (Xyz, flags = WantSetter | Internal)]
  mutable __some_other : string = "kopytko";

  [Accessor (flags = WantSetter | Internal)]
  static mutable static_field : string = "foo";


  [FlagAccessor (Flag1, Flag2, flags = WantSetter | Protected)]
  [FlagAccessor (Flag3)]
  mutable flags : SomeFlags;


  public static Main () : void
  {
    System.Console.WriteLine (StaticField);
    StaticField = "bar";
    System.Console.WriteLine (StaticField);

    def c = C ();

    System.Console.WriteLine (c.SomeField);
    System.Console.WriteLine (c.SomeOther);
    System.Console.WriteLine (c.Xyz);
    c.Xyz = "qux";
    c.SomeOther = true;
    System.Console.WriteLine (c.SomeField);
    System.Console.WriteLine (c.SomeOther);
    System.Console.WriteLine (c.Xyz);

    assert (typeof (C).GetMethod ("set_SomeField") == null);
    assert (typeof (C).GetMethod ("get_SomeField") != null);

    assert (!c.Flag1);
    assert (!c.Flag2);
    assert (!c.Flag3);
    c.flags = SomeFlags.FlagAll;
    assert (c.Flag1);
    assert (c.Flag2);
    assert (c.Flag3);
    c.Flag1 = false;
    assert (!c.Flag1);
    assert (typeof (C).GetMethod ("set_Flag3") == null);
  }

}

/*
BEGIN-OUTPUT
foo
bar
42
False
kopytko
42
True
qux
END-OUTPUT
*/

V>x= функция_в_которой_где_то_в_грубине_ошибка()
V>Assert.IsEqual(x,1)
V>

Assert.IsEqual(функция_в_которой_где_то_в_грубине_ошибка(),1)

L>А какое сообщение nunit-а вас больше удовлетворит: Приложение работает неправильно, или Стоимость рассчитывается некорректно?

C:\tmp>fc test.etalon.txt test.result.txt
Сравнение файлов test.etalon.txt и TEST.RESULT.TXT
***** test.etalon.txt
Вопросы с подковыркой : 1
Стоимость : 0
Готовые ответы : 1
***** TEST.RESULT.TXT
Вопросы с подковыркой : 1
Стоимость : 1 000 000 000
Готовые ответы : 1
*****

x= функция_в_которой_где_то_в_грубине_ошибка()
Assert.IsEqual(x,1)

L>>>Напиши функцию, кот сделать то же самое.

L>Ну вот, начинается. Но что не сделаешь чтобы в фало записать и дифом воспользоваться.

L>Не понял что ты имеешь в виду. Какую среду? Вот пишу я на шарпе, как мне использовать эту "нативную" среду?

' <summary>тестовый класс для получения текущего времени (при каждом взятии возвращает время на день позже предыдущего)</summary>
Class TestTimeProvider
    Implements ITimeProvider
    ' <summary>счётчик времени</summary>
    Public count As Integer = 0
    ' <summary>перезапустить счётчик времени</summary>
    Public Sub Reset()
        count = 0
    End Sub
    ' <summary>получить текущее время</summary>
    Public ReadOnly Property Now() As DateTime Implements ITimeProvider.Now
        Get
            Dim ncount As Integer
            ncount = count
            count = count + 1
            Return DateTime.Parse("03.02.1976").AddDays(ncount)
        End Get
    End Property
End Class