diff --git a/src/tools/ecc/mormot.tools.ecc.pas b/src/tools/ecc/mormot.tools.ecc.pas index d1c13a4d3..eb9cca449 100644 --- a/src/tools/ecc/mormot.tools.ecc.pas +++ b/src/tools/ecc/mormot.tools.ecc.pas @@ -652,7 +652,8 @@ function ECCCommand(cmd: TECCCommand; const sw: ICommandLine): TECCCommandError; 'Enter the first chars of the .private file name of the signing authority.'#13#10 + 'Will create a self-signed certificate if left void.'); until (auth = '') or - ECCKeyFileFind(auth, true) or sw.NoPrompt; + ECCKeyFileFind(auth, true) or + sw.NoPrompt; if auth <> '' then begin sw.Text('Will use: %'#13#10, [ExtractFileName(auth)]); @@ -898,7 +899,8 @@ function ECCCommand(cmd: TECCCommand; const sw: ICommandLine): TECCCommandError; newfile := SysUtils.Trim(sw.AsString( 'Out', origfile + AEAD_FILEEXT, 'Enter the name of the encrypted file')); - until (newfile <> '') or sw.NoPrompt; + until (newfile <> '') or + sw.NoPrompt; authpass := sw.AsUTF8('Pass', '', 'Enter the PassPhrase to be used for encryption.'); savepass := sw.AsUTF8('Salt', 'salt', diff --git a/test/mormot2tests.dpr b/test/mormot2tests.dpr index b3d417ea3..4b62218ad 100644 --- a/test/mormot2tests.dpr +++ b/test/mormot2tests.dpr @@ -97,10 +97,13 @@ uses //mormot.db.rad.unidac in '..\src\db\mormot.db.rad.unidac.pas', //mormot.db.rad.nexusdb in '..\src\db\mormot.db.rad.nexusdb.pas', {$endif FPC} + mormot.app.console in '..\src\app\mormot.app.console.pas', mormot.app.daemon in '..\src\app\mormot.app.daemon.pas', + mormot.tools.ecc in '..\src\tools\ecc\mormot.tools.ecc.pas', test.core.base in '.\test.core.base.pas', test.core.data in '.\test.core.data.pas', - test.core.crypto in '.\test.core.crypto.pas'; + test.core.crypto in '.\test.core.crypto.pas', + test.core.ecc in '.\test.core.ecc.pas'; { TIntegrationTests } @@ -113,10 +116,11 @@ type procedure TIntegrationTests.CoreUnits; begin + AddCase([ // - AddCase([TTestCoreBase, TTestCoreProcess, TTestCoreCrypto, TTestCoreCompress]); - // - AddCase([]); + TTestCoreBase, TTestCoreProcess, TTestCoreCrypto, TTestCoreEcc, TTestCoreCompress + // , + ]); end; diff --git a/test/mormot2tests.lpi b/test/mormot2tests.lpi index 258babc0e..707559b7d 100644 --- a/test/mormot2tests.lpi +++ b/test/mormot2tests.lpi @@ -190,7 +190,7 @@ - + - + @@ -872,6 +872,18 @@ + + + + + + + + + + + +