This commit is contained in:
Christopher Granade 2018-10-26 22:55:46 +02:00
Родитель 172dbbed5a
Коммит e3342339d8
1 изменённых файлов: 26 добавлений и 0 удалений

Просмотреть файл

@ -0,0 +1,26 @@
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License.
namespace Microsoft.Quantum.Tests {
open Microsoft.Quantum.Primitive;
open Microsoft.Quantum.Canon;
function Square(x : Int) : Int {
return x * x;
}
operation ApplyOp<'T, 'U>(op : ('T => 'U), input : 'T) : 'U {
return op(input);
}
operation CallTest() : Unit {
AssertIntEqual(Call(Square, 4), 16, "Call failed with Square.");
}
operation ToOperationTest : Unit {
let op = ToOperation(Square);
AssertIntEqual(ApplyOp(op, 3), 9);
}
}