+6

Prexonite.sln.DotSettings

Reviewed

··· 5 5 <s:Boolean x:Key="/Default/CodeStyle/CodeFormatting/CSharpFormat/ALIGN_MULTILINE_CALLS_CHAIN/@EntryValue">False</s:Boolean> 6 6 <s:Boolean x:Key="/Default/CodeStyle/CodeFormatting/CSharpFormat/ALIGN_MULTILINE_EXPRESSION/@EntryValue">False</s:Boolean> 7 7 <s:Boolean x:Key="/Default/CodeStyle/CodeFormatting/CSharpFormat/ALIGN_MULTILINE_PARAMETER/@EntryValue">False</s:Boolean> 8 8 + <s:String x:Key="/Default/CodeStyle/CodeFormatting/CSharpFormat/PLACE_ACCESSORHOLDER_ATTRIBUTE_ON_SAME_LINE_EX/@EntryValue">NEVER</s:String> 8 9 9 10 <s:String x:Key="/Default/CodeStyle/FileHeader/FileHeaderText/@EntryValue">$SOLUTION$&#xD; 10 11 &#xD; ··· 35 36 <s:String x:Key="/Default/CodeStyle/Naming/CSharpNaming/PredefinedNamingRules/=PrivateStaticReadonly/@EntryIndexedValue">&lt;Policy Inspect="True" Prefix="_" Suffix="" Style="aaBb" /&gt;</s:String> 36 37 <s:String x:Key="/Default/CodeStyle/Naming/CSharpNaming/UserRules/=3d1afed0_002D8eeb_002D476b_002Db81f_002D68998a8855fe/@EntryIndexedValue">&lt;Policy&gt;&lt;Descriptor Staticness="Static, Instance" AccessRightKinds="Private" Description="Private members"&gt;&lt;ElementKinds&gt;&lt;Kind Name="FIELD" /&gt;&lt;Kind Name="READONLY_FIELD" /&gt;&lt;Kind Name="METHOD" /&gt;&lt;Kind Name="PROPERTY" /&gt;&lt;Kind Name="EVENT" /&gt;&lt;/ElementKinds&gt;&lt;/Descriptor&gt;&lt;Policy Inspect="True" Prefix="_" Suffix="" Style="aaBb" /&gt;&lt;/Policy&gt;</s:String> 37 38 <s:String x:Key="/Default/CodeStyle/Naming/CSharpNaming/UserRules/=a0ea5b45_002Df3e8_002D489b_002Da1bf_002D6fe14030968c/@EntryIndexedValue">&lt;Policy&gt;&lt;Descriptor Staticness="Static, Instance" AccessRightKinds="Internal" Description="Internal methods and properties"&gt;&lt;ElementKinds&gt;&lt;Kind Name="METHOD" /&gt;&lt;Kind Name="PROPERTY" /&gt;&lt;/ElementKinds&gt;&lt;/Descriptor&gt;&lt;Policy Inspect="True" Prefix="_" Suffix="" Style="AaBb" /&gt;&lt;/Policy&gt;</s:String> 39 39 + <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ECSharpAttributeForSingleLineMethodUpgrade/@EntryIndexedValue">True</s:Boolean> 40 40 + <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ECSharpKeepExistingMigration/@EntryIndexedValue">True</s:Boolean> 41 41 + <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ECSharpPlaceEmbeddedOnSameLineMigration/@EntryIndexedValue">True</s:Boolean> 42 42 + <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ECSharpRenamePlacementToArrangementMigration/@EntryIndexedValue">True</s:Boolean> 38 43 <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002EAddAccessorOwnerDeclarationBracesMigration/@EntryIndexedValue">True</s:Boolean> 44 44 + <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002ECSharpPlaceAttributeOnSameLineMigration/@EntryIndexedValue">True</s:Boolean> 39 45 <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002EMigrateBlankLinesAroundFieldToBlankLinesAroundProperty/@EntryIndexedValue">True</s:Boolean> 40 46 <s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002EMigrateThisQualifierSettings/@EntryIndexedValue">True</s:Boolean> 41 47 <s:String x:Key="/Default/FilterSettingsManager/AttributeFilterXml/@EntryValue">&lt;data /&gt;</s:String>

+2 -2

Prexonite/Compiler/Lexer.cs

Reviewed

··· 1 1 - /* The following code was generated by CSFlex 1.4 on 27.05.2017 */ 1 1 + /* The following code was generated by CSFlex 1.4 on 16.04.2018 */ 2 2 3 3 #line 1 "Prexonite.lex" 4 4 /* ··· 41 41 /** 42 42 * This class is a scanner generated by <a href="http://www.sourceforge.net/projects/csflex/">C# Flex</a>, based on 43 43 * <a href="http://www.jflex.de/">JFlex</a>, version 1.4 44 44 - * on 27.05.2017 from the specification file 44 44 + * on 16.04.2018 from the specification file 45 45 * <tt>Prexonite.lex</tt> 46 46 */ 47 47 class Lexer: Prexonite.Internal.IScanner {

+16 -3

Prexonite/Prexonite.csproj

Reviewed

··· 1 1 <?xml version="1.0" encoding="utf-8"?> 2 2 <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0"> 3 3 + <Import Project="..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props" Condition="Exists('..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props')" /> 3 4 <PropertyGroup> 4 5 <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> 5 6 <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> ··· 20 21 <UpgradeBackupLocation> 21 22 </UpgradeBackupLocation> 22 23 <IsWebBootstrapper>false</IsWebBootstrapper> 23 23 - <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion> 24 24 + <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion> 24 25 <TargetFrameworkProfile> 25 26 </TargetFrameworkProfile> 26 27 <PublishUrl>publish\</PublishUrl> ··· 37 38 <ApplicationVersion>1.0.0.%2a</ApplicationVersion> 38 39 <UseApplicationTrust>false</UseApplicationTrust> 39 40 <BootstrapperEnabled>true</BootstrapperEnabled> 40 40 - <LangVersion>7</LangVersion> 41 41 + <LangVersion>7.2</LangVersion> 41 42 </PropertyGroup> 42 43 <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> 43 44 <DebugSymbols>true</DebugSymbols> ··· 94 95 <Prefer32Bit>false</Prefer32Bit> 95 96 </PropertyGroup> 96 97 <ItemGroup> 98 98 + <Reference Include="mscorlib" /> 97 99 <Reference Include="System" /> 98 100 <Reference Include="System.Core"> 99 101 <RequiredTargetFramework>3.5</RequiredTargetFramework> 100 102 </Reference> 103 103 + <Reference Include="System.Threading.Tasks.Extensions, Version=4.1.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51"> 104 104 + <HintPath>..\packages\System.Threading.Tasks.Extensions.4.4.0\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath> 105 105 + <Private>True</Private> 106 106 + </Reference> 101 107 <Reference Include="System.ValueTuple, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51"> 102 102 - <HintPath>..\packages\System.ValueTuple.4.4.0-preview1-25305-02\lib\net461\System.ValueTuple.dll</HintPath> 108 108 + <HintPath>..\packages\System.ValueTuple.4.4.0\lib\net461\System.ValueTuple.dll</HintPath> 109 109 + <Private>True</Private> 103 110 </Reference> 104 111 </ItemGroup> 105 112 <ItemGroup> ··· 648 655 </Target> 649 656 <Target Name="PrexoniteScanner"> 650 657 <Exec Command="&quot;$(ToolsDirectory)\csflex.exe&quot; --csharp --nested-default-skeleton --nobak $(PrexoniteScannerDefinition)" WorkingDirectory="$(ProjectDir)\Compiler" /> 658 658 + </Target> 659 659 + <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild"> 660 660 + <PropertyGroup> 661 661 + <ErrorText>This project references NuGet package(s) that are missing on this computer. Enable NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105.The missing file is {0}.</ErrorText> 662 662 + </PropertyGroup> 663 663 + <Error Condition="!Exists('..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props'))" /> 651 664 </Target> 652 665 </Project>

+1 -1

Prexonite/Prexonite.csproj.DotSettings

Reviewed

··· 1 1 <wpf:ResourceDictionary xml:space="preserve" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:s="clr-namespace:System;assembly=mscorlib" xmlns:ss="urn:shemas-jetbrains-com:settings-storage-xaml" xmlns:wpf="http://schemas.microsoft.com/winfx/2006/xaml/presentation"> 2 2 - <s:String x:Key="/Default/CodeInspection/CSharpLanguageProject/LanguageLevel/@EntryValue">CSharp70</s:String> 2 2 + 3 3 <s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=Helper/@EntryIndexedValue">True</s:Boolean></wpf:ResourceDictionary>

+3 -1

Prexonite/packages.config

Reviewed

··· 1 1 <?xml version="1.0" encoding="utf-8"?> 2 2 <packages> 3 3 - <package id="System.ValueTuple" version="4.4.0-preview1-25305-02" targetFramework="net461" /> 3 3 + <package id="Microsoft.Net.Compilers" version="2.7.0" targetFramework="net462" developmentDependency="true" /> 4 4 + <package id="System.Threading.Tasks.Extensions" version="4.4.0" targetFramework="net462" /> 5 5 + <package id="System.ValueTuple" version="4.4.0" targetFramework="net461" /> 4 6 </packages>

+20 -12

Prexonite/prxlib/sh.pxs

Reviewed

··· 1 1 - // Runtime component of the Prexonite shell scripting extensions 2 2 - Name sh/0.0; 3 3 - References { 4 4 - sys/0.0 5 5 - }; 6 6 - 7 7 - namespace sh { 8 8 - 9 9 - function stdout = "sh.stdout"; 10 10 - function stdin = "sh.stdin"; 11 11 - function stderr = "sh.stderr"; 12 12 - } export(stdout, stdin, stderr, (|>), (<|.), (|>.), stream, lines, which, create_command, call\sh); 1 1 + // Runtime component of the Prexonite shell scripting extensions 2 2 + Name sh/0.0; 3 3 + References { 4 4 + sys/0.0 5 5 + }; 6 6 + 7 7 + namespace sh { 8 8 + 9 9 + function stdout = "sh.stdout"; 10 10 + function stdin = "sh.stdin"; 11 11 + function stderr = "sh.stderr"; 12 12 + } export(stdout, stdin, stderr, stream, lines, words, which, create_command, call\sh, (|>), (<|.), (|>.)); 13 13 + 14 14 + { 15 15 + var time = new command(which("time")); 16 16 + var grep = new command(which("grep")); 17 17 + var tr = new command(which("tr")); 18 18 + var cut = new command(which("cut")); 19 19 + } 20 20 +

+121 -152

PrexoniteTests/Meta.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using NUnit.Framework.Constraints; 28 28 - using Prexonite; 29 29 - 30 30 - namespace PrexoniteTests 31 31 - { 32 32 - public static class Meta 33 33 - { 34 34 - public static Constraint ContainsKey(string key) 35 35 - { 36 36 - return new ContainsKeyConstraint(key); 37 37 - } 38 38 - 39 39 - public static Constraint Contains(string key, MetaEntry value) 40 40 - { 41 41 - return new ExactEqualityConstraint(key, value); 42 42 - } 43 43 - 44 44 - public static Constraint ContainsExact(string key, MetaEntry value) 45 45 - { 46 46 - return 47 47 - new ContainsKeyConstraint(key).And.Matches(new ExactEqualityConstraint(key, value)); 48 48 - } 49 49 - 50 50 - private class ExactEqualityConstraint : Constraint 51 51 - { 52 52 - private readonly string _key; 53 53 - private readonly MetaEntry _expectedEntry; 54 54 - private MetaEntry _actualEntry; 55 55 - private bool _typeMismatch; 56 56 - 57 57 - public ExactEqualityConstraint(string key, MetaEntry expectedEntry) 58 58 - { 59 59 - if (key == null) 60 60 - throw new ArgumentNullException(nameof(key)); 61 61 - if (expectedEntry == null) 62 62 - throw new ArgumentNullException(nameof(expectedEntry)); 63 63 - 64 64 - _key = key; 65 65 - _expectedEntry = expectedEntry; 66 66 - } 67 67 - 68 68 - #region Overrides of Constraint 69 69 - 70 70 - public override bool Matches(object actual) 71 71 - { 72 72 - this.actual = actual; 73 73 - 74 74 - var ihmt = actual as IHasMetaTable; 75 75 - if (ihmt == null) 76 76 - { 77 77 - this.actual = null; 78 78 - return false; 79 79 - } 80 80 - 81 81 - _actualEntry = ihmt.Meta[_key]; 82 82 - 83 83 - if (_actualEntry.EntryType != _expectedEntry.EntryType) 84 84 - { 85 85 - _typeMismatch = true; 86 86 - return false; 87 87 - } 88 88 - 89 89 - _typeMismatch = false; 90 90 - return _actualEntry.Equals(_expectedEntry); 91 91 - } 92 92 - 93 93 - public override void WriteDescriptionTo(MessageWriter writer) 94 94 - { 95 95 - if (actual == null) 96 96 - { 97 97 - writer.WriteMessageLine("Actual value does not have a meta table."); 98 98 - } 99 99 - else if (_typeMismatch) 100 100 - { 101 101 - writer.WriteMessageLine("Meta entry type doesn't match."); 102 102 - writer.WriteExpectedValue(_expectedEntry.EntryType); 103 103 - writer.WriteActualValue(_actualEntry.EntryType); 104 104 - } 105 105 - else 106 106 - { 107 107 - writer.WriteMessageLine( 108 108 - "actual meta entry {0} should match expected entry {1}", _actualEntry, 109 109 - _expectedEntry); 110 110 - } 111 111 - } 112 112 - 113 113 - #endregion 114 114 - } 115 115 - 116 116 - private class ContainsKeyConstraint : Constraint 117 117 - { 118 118 - private readonly string _key; 119 119 - 120 120 - public ContainsKeyConstraint(string key) 121 121 - { 122 122 - if (key == null) 123 123 - throw new ArgumentNullException(nameof(key)); 124 124 - _key = key; 125 125 - } 126 126 - 127 127 - #region Overrides of Constraint 128 128 - 129 129 - public override bool Matches(object actual) 130 130 - { 131 131 - this.actual = actual; 132 132 - 133 133 - IHasMetaTable ihmt; 134 134 - MetaTable mt; 135 135 - if ((ihmt = actual as IHasMetaTable) != null) 136 136 - mt = ihmt.Meta; 137 137 - else 138 138 - return false; 139 139 - 140 140 - return mt.ContainsKey(_key); 141 141 - } 142 142 - 143 143 - public 144 144 - override void WriteDescriptionTo(MessageWriter writer) 145 145 - { 146 146 - writer.WriteMessageLine( 147 147 - "meta table of object {0} should contain an entry for key \"{1}\"", actual, _key); 148 148 - } 149 149 - 150 150 - #endregion 151 151 - } 152 152 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using NUnit.Framework.Constraints; 28 28 + using Prexonite; 29 29 + 30 30 + namespace PrexoniteTests 31 31 + { 32 32 + public static class Meta 33 33 + { 34 34 + public static Constraint ContainsKey(string key) 35 35 + { 36 36 + return new ContainsKeyConstraint(key); 37 37 + } 38 38 + 39 39 + public static Constraint Contains(string key, MetaEntry value) 40 40 + { 41 41 + return new ExactEqualityConstraint(key, value); 42 42 + } 43 43 + 44 44 + public static Constraint ContainsExact(string key, MetaEntry value) 45 45 + { 46 46 + return 47 47 + new ContainsKeyConstraint(key).And.Matches(new ExactEqualityConstraint(key, value)); 48 48 + } 49 49 + 50 50 + private class ExactEqualityConstraint : Constraint 51 51 + { 52 52 + private readonly string _key; 53 53 + private readonly MetaEntry _expectedEntry; 54 54 + 55 55 + public ExactEqualityConstraint(string key, MetaEntry expectedEntry) : base(key, expectedEntry) 56 56 + { 57 57 + if (expectedEntry == null) 58 58 + throw new ArgumentNullException(nameof(expectedEntry)); 59 59 + 60 60 + _key = key ?? throw new ArgumentNullException(nameof(key)); 61 61 + _expectedEntry = expectedEntry; 62 62 + } 63 63 + 64 64 + #region Overrides of Constraint 65 65 + 66 66 + public override ConstraintResult ApplyTo<TActual>(TActual actual) 67 67 + { 68 68 + object actualObj = actual; 69 69 + return new ConstraintResult(this, actualObj, _matches(actualObj)); 70 70 + } 71 71 + 72 72 + private bool _matches(object actual) 73 73 + { 74 74 + var ihmt = actual as IHasMetaTable; 75 75 + if (ihmt == null) 76 76 + { 77 77 + return false; 78 78 + } 79 79 + 80 80 + var actualEntry = ihmt.Meta[_key]; 81 81 + 82 82 + return actualEntry.EntryType == _expectedEntry.EntryType && actualEntry.Equals(_expectedEntry); 83 83 + } 84 84 + 85 85 + #endregion 86 86 + } 87 87 + 88 88 + private class ContainsKeyConstraint : Constraint 89 89 + { 90 90 + private readonly string _key; 91 91 + 92 92 + public ContainsKeyConstraint(string key) : base(key) 93 93 + { 94 94 + if (key == null) 95 95 + throw new ArgumentNullException(nameof(key)); 96 96 + _key = key; 97 97 + } 98 98 + 99 99 + #region Overrides of Constraint 100 100 + 101 101 + public override ConstraintResult ApplyTo<TActual>(TActual actual) 102 102 + { 103 103 + var actualValue = actual; 104 104 + return new ConstraintResult(this, actualValue, _matches(actualValue)); 105 105 + } 106 106 + 107 107 + private bool _matches(object actual) 108 108 + { 109 109 + IHasMetaTable ihmt; 110 110 + MetaTable mt; 111 111 + if ((ihmt = actual as IHasMetaTable) != null) 112 112 + mt = ihmt.Meta; 113 113 + else 114 114 + return false; 115 115 + 116 116 + return mt.ContainsKey(_key); 117 117 + } 118 118 + 119 119 + #endregion 120 120 + } 121 121 + } 153 122 }

+245 -220

PrexoniteTests/PrexoniteTests.csproj

Reviewed

··· 1 1 - <?xml version="1.0" encoding="utf-8"?> 2 2 - <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0"> 3 3 - <PropertyGroup> 4 4 - <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> 5 5 - <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> 6 6 - <ProductVersion>9.0.21022</ProductVersion> 7 7 - <SchemaVersion>2.0</SchemaVersion> 8 8 - <ProjectGuid>{9491D2F5-6758-44CF-9CB9-9F488145F9A3}</ProjectGuid> 9 9 - <OutputType>Exe</OutputType> 10 10 - <AppDesignerFolder>Properties</AppDesignerFolder> 11 11 - <RootNamespace>PrexoniteTests</RootNamespace> 12 12 - <AssemblyName>PrexoniteTests</AssemblyName> 13 13 - <FileUpgradeFlags> 14 14 - </FileUpgradeFlags> 15 15 - <OldToolsVersion>3.5</OldToolsVersion> 16 16 - <UpgradeBackupLocation> 17 17 - </UpgradeBackupLocation> 18 18 - <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion> 19 19 - <TargetFrameworkProfile> 20 20 - </TargetFrameworkProfile> 21 21 - <PublishUrl>publish\</PublishUrl> 22 22 - <Install>true</Install> 23 23 - <InstallFrom>Disk</InstallFrom> 24 24 - <UpdateEnabled>false</UpdateEnabled> 25 25 - <UpdateMode>Foreground</UpdateMode> 26 26 - <UpdateInterval>7</UpdateInterval> 27 27 - <UpdateIntervalUnits>Days</UpdateIntervalUnits> 28 28 - <UpdatePeriodically>false</UpdatePeriodically> 29 29 - <UpdateRequired>false</UpdateRequired> 30 30 - <MapFileExtensions>true</MapFileExtensions> 31 31 - <ApplicationRevision>0</ApplicationRevision> 32 32 - <ApplicationVersion>1.0.0.%2a</ApplicationVersion> 33 33 - <IsWebBootstrapper>false</IsWebBootstrapper> 34 34 - <UseApplicationTrust>false</UseApplicationTrust> 35 35 - <BootstrapperEnabled>true</BootstrapperEnabled> 36 36 - <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\</SolutionDir> 37 37 - <RestorePackages>true</RestorePackages> 38 38 - </PropertyGroup> 39 39 - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> 40 40 - <DebugSymbols>true</DebugSymbols> 41 41 - <DebugType>full</DebugType> 42 42 - <Optimize>false</Optimize> 43 43 - <OutputPath>bin\Debug\</OutputPath> 44 44 - <DefineConstants>TRACE;DEBUG;allowIndex,forceIndex</DefineConstants> 45 45 - <ErrorReport>prompt</ErrorReport> 46 46 - <WarningLevel>4</WarningLevel> 47 47 - <Prefer32Bit>false</Prefer32Bit> 48 48 - </PropertyGroup> 49 49 - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> 50 50 - <DebugType>pdbonly</DebugType> 51 51 - <Optimize>true</Optimize> 52 52 - <OutputPath>bin\Release\</OutputPath> 53 53 - <DefineConstants>TRACE</DefineConstants> 54 54 - <ErrorReport>prompt</ErrorReport> 55 55 - <WarningLevel>4</WarningLevel> 56 56 - <Prefer32Bit>false</Prefer32Bit> 57 57 - </PropertyGroup> 58 58 - <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'"> 59 59 - <DebugSymbols>true</DebugSymbols> 60 60 - <OutputPath>bin\x86\Debug\</OutputPath> 61 61 - <DefineConstants>TRACE;DEBUG;allowIndex,forceIndex</DefineConstants> 62 62 - <DebugType>full</DebugType> 63 63 - <PlatformTarget>x86</PlatformTarget> 64 64 - <CodeAnalysisLogFile>bin\Debug\PrexoniteTests.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 65 65 - <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 66 66 - <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 67 67 - <ErrorReport>prompt</ErrorReport> 68 68 - <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet> 69 69 - <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 70 70 - <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 71 71 - <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 72 72 - <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 73 73 - <Prefer32Bit>false</Prefer32Bit> 74 74 - </PropertyGroup> 75 75 - <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'"> 76 76 - <OutputPath>bin\x86\Release\</OutputPath> 77 77 - <DefineConstants>TRACE</DefineConstants> 78 78 - <Optimize>true</Optimize> 79 79 - <DebugType>pdbonly</DebugType> 80 80 - <PlatformTarget>x86</PlatformTarget> 81 81 - <CodeAnalysisLogFile>bin\Release\PrexoniteTests.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 82 82 - <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 83 83 - <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 84 84 - <ErrorReport>prompt</ErrorReport> 85 85 - <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet> 86 86 - <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 87 87 - <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 88 88 - <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 89 89 - <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 90 90 - <CodeAnalysisFailOnMissingRules>false</CodeAnalysisFailOnMissingRules> 91 91 - <Prefer32Bit>false</Prefer32Bit> 92 92 - </PropertyGroup> 93 93 - <PropertyGroup> 94 94 - <SignAssembly>true</SignAssembly> 95 95 - </PropertyGroup> 96 96 - <PropertyGroup> 97 97 - <AssemblyOriginatorKeyFile>Prexonite.snk</AssemblyOriginatorKeyFile> 98 98 - </PropertyGroup> 99 99 - <ItemGroup> 100 100 - <Reference Include="Microsoft.CSharp" /> 101 101 - <Reference Include="Moq"> 102 102 - <HintPath>..\packages\Moq.4.0.10827\lib\NET40\Moq.dll</HintPath> 103 103 - </Reference> 104 104 - <Reference Include="nunit.framework, Version=2.6.2.12296, Culture=neutral, PublicKeyToken=96d09a1eb7f44a77, processorArchitecture=MSIL"> 105 105 - <SpecificVersion>False</SpecificVersion> 106 106 - <HintPath>..\packages\NUnit.2.6.2\lib\nunit.framework.dll</HintPath> 107 107 - </Reference> 108 108 - <Reference Include="System" /> 109 109 - </ItemGroup> 110 110 - <ItemGroup> 111 111 - <Compile Include="Meta.cs" /> 112 112 - <Compile Include="Program.cs" /> 113 113 - <Compile Include="Properties\AssemblyInfo.cs" /> 114 114 - <Compile Include="Tests\ApplicationLinking.cs" /> 115 115 - <Compile Include="Tests\AstTests.cs" /> 116 116 - <Compile Include="Tests\CilCompilerTests.cs" /> 117 117 - <Compile Include="Tests\CilRuntime.cs" /> 118 118 - <Compile Include="Tests\Compiler.cs" /> 119 119 - <Compile Include="Tests\Compiler.Global.cs" /> 120 120 - <Compile Include="Tests\Compiler.Parser.cs" /> 121 121 - <Compile Include="Tests\Configurations\ModuleCache.cs" /> 122 122 - <Compile Include="Tests\Configurations\PsrUnitTests.cs"> 123 123 - <AutoGen>True</AutoGen> 124 124 - <DesignTime>True</DesignTime> 125 125 - <DependentUpon>PsrUnitTests.tt</DependentUpon> 126 126 - </Compile> 127 127 - <Compile Include="Tests\Configurations\TestModel.cs" /> 128 128 - <Compile Include="Tests\Configurations\UnitTestConfiguration.cs" /> 129 129 - <Content Include="psr-tests\testconfig.txt" /> 130 130 - <Compile Include="Tests\Configurations\ScriptedUnitTestContainer.cs" /> 131 131 - <Compile Include="Tests\Configurations\VMTestConfigurations.cs"> 132 132 - <AutoGen>True</AutoGen> 133 133 - <DesignTime>True</DesignTime> 134 134 - <DependentUpon>VMTestConfigurations.tt</DependentUpon> 135 135 - </Compile> 136 136 - <Compile Include="Tests\Internal\DependingOnConstraint.cs" /> 137 137 - <Compile Include="Tests\MemberCallable.cs" /> 138 138 - <Compile Include="Tests\MExprTests.cs" /> 139 139 - <Compile Include="Tests\NamespaceInfrastructureTests.cs" /> 140 140 - <Compile Include="Tests\SelfAssemblingPlanTests.cs" /> 141 141 - <Compile Include="Tests\ShellExtensions.cs" /> 142 142 - <Compile Include="Tests\Translation.cs" /> 143 143 - <Compile Include="Tests\VMTests.Macro.cs" /> 144 144 - <Compile Include="Tests\VMTests.Exception.cs" /> 145 145 - <Compile Include="Tests\VMTests.Commands.cs" /> 146 146 - <Compile Include="Tests\Lazy.cs" /> 147 147 - <Compile Include="Tests\PartialApplication.cs" /> 148 148 - <Compile Include="Tests\RandomAccessQueue.cs" /> 149 149 - <Compile Include="Tests\Storage.cs" /> 150 150 - <Compile Include="Tests\TestObject.cs" /> 151 151 - <Compile Include="Tests\TestStackContext.cs" /> 152 152 - <Compile Include="Tests\TypeSystem.cs" /> 153 153 - <Compile Include="Tests\VMTests.Basic.cs" /> 154 154 - <Compile Include="Tests\VMTests.cs" /> 155 155 - <Compile Include="Tests\VMTestsBase.cs" /> 156 156 - </ItemGroup> 157 157 - <ItemGroup> 158 158 - <ProjectReference Include="..\Prexonite\Prexonite.csproj"> 159 159 - <Project>{2FE722CA-B671-4EE8-9BF1-9F3ACFACD24D}</Project> 160 160 - <Name>Prexonite</Name> 161 161 - </ProjectReference> 162 162 - </ItemGroup> 163 163 - <ItemGroup> 164 164 - <Service Include="{508349B6-6B84-4DF5-91F0-309BEEBAD82D}" /> 165 165 - <Service Include="{82A7F48D-3B50-4B1E-B82E-3ADA8210C358}" /> 166 166 - <Service Include="{B4F97281-0DBD-4835-9ED8-7DFB966E87FF}" /> 167 167 - </ItemGroup> 168 168 - <ItemGroup> 169 169 - <BootstrapperPackage Include="Microsoft.Net.Client.3.5"> 170 170 - <Visible>False</Visible> 171 171 - <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName> 172 172 - <Install>false</Install> 173 173 - </BootstrapperPackage> 174 174 - <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1"> 175 175 - <Visible>False</Visible> 176 176 - <ProductName>.NET Framework 3.5 SP1</ProductName> 177 177 - <Install>true</Install> 178 178 - </BootstrapperPackage> 179 179 - <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1"> 180 180 - <Visible>False</Visible> 181 181 - <ProductName>Windows Installer 3.1</ProductName> 182 182 - <Install>true</Install> 183 183 - </BootstrapperPackage> 184 184 - </ItemGroup> 185 185 - <ItemGroup> 186 186 - <None Include="app.config" /> 187 187 - <None Include="packages.config" /> 188 188 - <None Include="Prexonite.snk" /> 189 189 - <None Include="psr-tests\ast.test.pxs" /> 190 190 - <None Include="psr-tests\find-deficiencies.pxs" /> 191 191 - <None Include="psr-tests\lang-ext.test.pxs" /> 192 192 - <None Include="psr-tests\macro.test.pxs" /> 193 193 - <None Include="psr-tests\make_test_configuration.pxs" /> 194 194 - <None Include="psr-tests\misc.test.pxs" /> 195 195 - <None Include="psr-tests\run_tests.pxs" /> 196 196 - <None Include="psr-tests\struct.test.pxs" /> 197 197 - <None Include="Tests\Configurations\LoadConfiguration.t4"> 198 198 - <LastGenOutput>LoadConfiguration1.cs</LastGenOutput> 199 199 - </None> 200 200 - <None Include="Tests\Configurations\PsrUnitTests.tt"> 201 201 - <Generator>TextTemplatingFileGenerator</Generator> 202 202 - <LastGenOutput>PsrUnitTests.cs</LastGenOutput> 203 203 - </None> 204 204 - <None Include="Tests\Configurations\VMTestConfigurations.tt"> 205 205 - <Generator>TextTemplatingFileGenerator</Generator> 206 206 - <LastGenOutput>VMTestConfigurations.cs</LastGenOutput> 207 207 - </None> 208 208 - </ItemGroup> 209 209 - <ItemGroup> 210 210 - <Folder Include="Internal\" /> 211 211 - </ItemGroup> 212 212 - <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" /> 213 213 - <Import Project="$(SolutionDir)\.nuget\nuget.targets" /> 214 214 - <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 215 215 - Other similar extension points exist, see Microsoft.Common.targets. 216 216 - <Target Name="BeforeBuild"> 217 217 - </Target> 218 218 - <Target Name="AfterBuild"> 219 219 - </Target> 220 220 - --> 1 1 + <?xml version="1.0" encoding="utf-8"?> 2 2 + <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0"> 3 3 + <Import Project="..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props" Condition="Exists('..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props')" /> 4 4 + <Import Project="..\packages\NUnit.3.10.1\build\NUnit.props" Condition="Exists('..\packages\NUnit.3.10.1\build\NUnit.props')" /> 5 5 + <PropertyGroup> 6 6 + <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects> 7 7 + <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> 8 8 + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> 9 9 + <ProductVersion>9.0.21022</ProductVersion> 10 10 + <SchemaVersion>2.0</SchemaVersion> 11 11 + <ProjectGuid>{9491D2F5-6758-44CF-9CB9-9F488145F9A3}</ProjectGuid> 12 12 + <OutputType>Exe</OutputType> 13 13 + <AppDesignerFolder>Properties</AppDesignerFolder> 14 14 + <RootNamespace>PrexoniteTests</RootNamespace> 15 15 + <AssemblyName>PrexoniteTests</AssemblyName> 16 16 + <FileUpgradeFlags> 17 17 + </FileUpgradeFlags> 18 18 + <OldToolsVersion>3.5</OldToolsVersion> 19 19 + <UpgradeBackupLocation> 20 20 + </UpgradeBackupLocation> 21 21 + <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion> 22 22 + <TargetFrameworkProfile> 23 23 + </TargetFrameworkProfile> 24 24 + <PublishUrl>publish\</PublishUrl> 25 25 + <Install>true</Install> 26 26 + <InstallFrom>Disk</InstallFrom> 27 27 + <UpdateEnabled>false</UpdateEnabled> 28 28 + <UpdateMode>Foreground</UpdateMode> 29 29 + <UpdateInterval>7</UpdateInterval> 30 30 + <UpdateIntervalUnits>Days</UpdateIntervalUnits> 31 31 + <UpdatePeriodically>false</UpdatePeriodically> 32 32 + <UpdateRequired>false</UpdateRequired> 33 33 + <MapFileExtensions>true</MapFileExtensions> 34 34 + <ApplicationRevision>0</ApplicationRevision> 35 35 + <ApplicationVersion>1.0.0.%2a</ApplicationVersion> 36 36 + <IsWebBootstrapper>false</IsWebBootstrapper> 37 37 + <UseApplicationTrust>false</UseApplicationTrust> 38 38 + <BootstrapperEnabled>true</BootstrapperEnabled> 39 39 + <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\</SolutionDir> 40 40 + <RestorePackages>true</RestorePackages> 41 41 + <LangVersion>7.2</LangVersion> 42 42 + </PropertyGroup> 43 43 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> 44 44 + <DebugSymbols>true</DebugSymbols> 45 45 + <DebugType>full</DebugType> 46 46 + <Optimize>false</Optimize> 47 47 + <OutputPath>bin\Debug\</OutputPath> 48 48 + <DefineConstants>TRACE;DEBUG;allowIndex,forceIndex</DefineConstants> 49 49 + <ErrorReport>prompt</ErrorReport> 50 50 + <WarningLevel>4</WarningLevel> 51 51 + <Prefer32Bit>false</Prefer32Bit> 52 52 + </PropertyGroup> 53 53 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> 54 54 + <DebugType>pdbonly</DebugType> 55 55 + <Optimize>true</Optimize> 56 56 + <OutputPath>bin\Release\</OutputPath> 57 57 + <DefineConstants>TRACE</DefineConstants> 58 58 + <ErrorReport>prompt</ErrorReport> 59 59 + <WarningLevel>4</WarningLevel> 60 60 + <Prefer32Bit>false</Prefer32Bit> 61 61 + </PropertyGroup> 62 62 + <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'"> 63 63 + <DebugSymbols>true</DebugSymbols> 64 64 + <OutputPath>bin\x86\Debug\</OutputPath> 65 65 + <DefineConstants>TRACE;DEBUG;allowIndex,forceIndex</DefineConstants> 66 66 + <DebugType>full</DebugType> 67 67 + <PlatformTarget>x86</PlatformTarget> 68 68 + <CodeAnalysisLogFile>bin\Debug\PrexoniteTests.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 69 69 + <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 70 70 + <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 71 71 + <ErrorReport>prompt</ErrorReport> 72 72 + <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet> 73 73 + <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 74 74 + <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 75 75 + <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 76 76 + <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 77 77 + <Prefer32Bit>false</Prefer32Bit> 78 78 + </PropertyGroup> 79 79 + <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'"> 80 80 + <OutputPath>bin\x86\Release\</OutputPath> 81 81 + <DefineConstants>TRACE</DefineConstants> 82 82 + <Optimize>true</Optimize> 83 83 + <DebugType>pdbonly</DebugType> 84 84 + <PlatformTarget>x86</PlatformTarget> 85 85 + <CodeAnalysisLogFile>bin\Release\PrexoniteTests.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 86 86 + <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 87 87 + <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 88 88 + <ErrorReport>prompt</ErrorReport> 89 89 + <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet> 90 90 + <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 91 91 + <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 92 92 + <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 93 93 + <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 94 94 + <CodeAnalysisFailOnMissingRules>false</CodeAnalysisFailOnMissingRules> 95 95 + <Prefer32Bit>false</Prefer32Bit> 96 96 + </PropertyGroup> 97 97 + <PropertyGroup> 98 98 + <SignAssembly>true</SignAssembly> 99 99 + </PropertyGroup> 100 100 + <PropertyGroup> 101 101 + <AssemblyOriginatorKeyFile>Prexonite.snk</AssemblyOriginatorKeyFile> 102 102 + </PropertyGroup> 103 103 + <ItemGroup> 104 104 + <Reference Include="Castle.Core, Version=4.0.0.0, Culture=neutral, PublicKeyToken=407dd0808d44fbdc"> 105 105 + <HintPath>..\packages\Castle.Core.4.2.1\lib\net45\Castle.Core.dll</HintPath> 106 106 + <Private>True</Private> 107 107 + </Reference> 108 108 + <Reference Include="Microsoft.CSharp" /> 109 109 + <Reference Include="Moq, Version=4.8.0.0, Culture=neutral, PublicKeyToken=69f491c39445e920"> 110 110 + <HintPath>..\packages\Moq.4.8.2\lib\net45\Moq.dll</HintPath> 111 111 + <Private>True</Private> 112 112 + </Reference> 113 113 + <Reference Include="mscorlib" /> 114 114 + <Reference Include="nunit.framework, Version=3.10.1.0, Culture=neutral, PublicKeyToken=2638cd05610744eb"> 115 115 + <HintPath>..\packages\NUnit.3.10.1\lib\net45\nunit.framework.dll</HintPath> 116 116 + <Private>True</Private> 117 117 + </Reference> 118 118 + <Reference Include="System" /> 119 119 + <Reference Include="System.Configuration" /> 120 120 + <Reference Include="System.Threading.Tasks.Extensions, Version=4.1.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51"> 121 121 + <HintPath>..\packages\System.Threading.Tasks.Extensions.4.4.0\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath> 122 122 + </Reference> 123 123 + <Reference Include="System.ValueTuple, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51"> 124 124 + <HintPath>..\packages\System.ValueTuple.4.4.0\lib\net461\System.ValueTuple.dll</HintPath> 125 125 + <Private>True</Private> 126 126 + </Reference> 127 127 + </ItemGroup> 128 128 + <ItemGroup> 129 129 + <Compile Include="Meta.cs" /> 130 130 + <Compile Include="Program.cs" /> 131 131 + <Compile Include="Properties\AssemblyInfo.cs" /> 132 132 + <Compile Include="Tests\ApplicationLinking.cs" /> 133 133 + <Compile Include="Tests\AstTests.cs" /> 134 134 + <Compile Include="Tests\CilCompilerTests.cs" /> 135 135 + <Compile Include="Tests\CilRuntime.cs" /> 136 136 + <Compile Include="Tests\Compiler.cs" /> 137 137 + <Compile Include="Tests\Compiler.Global.cs" /> 138 138 + <Compile Include="Tests\Compiler.Parser.cs" /> 139 139 + <Compile Include="Tests\Configurations\ModuleCache.cs" /> 140 140 + <Compile Include="Tests\Configurations\PsrUnitTests.cs"> 141 141 + <AutoGen>True</AutoGen> 142 142 + <DesignTime>True</DesignTime> 143 143 + <DependentUpon>PsrUnitTests.tt</DependentUpon> 144 144 + </Compile> 145 145 + <Compile Include="Tests\Configurations\TestModel.cs" /> 146 146 + <Compile Include="Tests\Configurations\UnitTestConfiguration.cs" /> 147 147 + <Content Include="psr-tests\testconfig.txt" /> 148 148 + <Compile Include="Tests\Configurations\ScriptedUnitTestContainer.cs" /> 149 149 + <Compile Include="Tests\Configurations\VMTestConfigurations.cs"> 150 150 + <AutoGen>True</AutoGen> 151 151 + <DesignTime>True</DesignTime> 152 152 + <DependentUpon>VMTestConfigurations.tt</DependentUpon> 153 153 + </Compile> 154 154 + <Compile Include="Tests\Internal\DependingOnConstraint.cs" /> 155 155 + <Compile Include="Tests\MemberCallable.cs" /> 156 156 + <Compile Include="Tests\MExprTests.cs" /> 157 157 + <Compile Include="Tests\NamespaceInfrastructureTests.cs" /> 158 158 + <Compile Include="Tests\SelfAssemblingPlanTests.cs" /> 159 159 + <Compile Include="Tests\ShellExtensions.cs" /> 160 160 + <Compile Include="Tests\Translation.cs" /> 161 161 + <Compile Include="Tests\VMTests.Macro.cs" /> 162 162 + <Compile Include="Tests\VMTests.Exception.cs" /> 163 163 + <Compile Include="Tests\VMTests.Commands.cs" /> 164 164 + <Compile Include="Tests\Lazy.cs" /> 165 165 + <Compile Include="Tests\PartialApplication.cs" /> 166 166 + <Compile Include="Tests\RandomAccessQueue.cs" /> 167 167 + <Compile Include="Tests\Storage.cs" /> 168 168 + <Compile Include="Tests\TestObject.cs" /> 169 169 + <Compile Include="Tests\TestStackContext.cs" /> 170 170 + <Compile Include="Tests\TypeSystem.cs" /> 171 171 + <Compile Include="Tests\VMTests.Basic.cs" /> 172 172 + <Compile Include="Tests\VMTests.cs" /> 173 173 + <Compile Include="Tests\VMTestsBase.cs" /> 174 174 + </ItemGroup> 175 175 + <ItemGroup> 176 176 + <ProjectReference Include="..\Prexonite\Prexonite.csproj"> 177 177 + <Project>{2FE722CA-B671-4EE8-9BF1-9F3ACFACD24D}</Project> 178 178 + <Name>Prexonite</Name> 179 179 + </ProjectReference> 180 180 + </ItemGroup> 181 181 + <ItemGroup> 182 182 + <Service Include="{508349B6-6B84-4DF5-91F0-309BEEBAD82D}" /> 183 183 + <Service Include="{82A7F48D-3B50-4B1E-B82E-3ADA8210C358}" /> 184 184 + <Service Include="{B4F97281-0DBD-4835-9ED8-7DFB966E87FF}" /> 185 185 + </ItemGroup> 186 186 + <ItemGroup> 187 187 + <BootstrapperPackage Include="Microsoft.Net.Client.3.5"> 188 188 + <Visible>False</Visible> 189 189 + <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName> 190 190 + <Install>false</Install> 191 191 + </BootstrapperPackage> 192 192 + <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1"> 193 193 + <Visible>False</Visible> 194 194 + <ProductName>.NET Framework 3.5 SP1</ProductName> 195 195 + <Install>true</Install> 196 196 + </BootstrapperPackage> 197 197 + <BootstrapperPackage Include="Microsoft.Windows.Installer.3.1"> 198 198 + <Visible>False</Visible> 199 199 + <ProductName>Windows Installer 3.1</ProductName> 200 200 + <Install>true</Install> 201 201 + </BootstrapperPackage> 202 202 + </ItemGroup> 203 203 + <ItemGroup> 204 204 + <None Include="app.config" /> 205 205 + <None Include="packages.config" /> 206 206 + <None Include="Prexonite.snk" /> 207 207 + <None Include="psr-tests\ast.test.pxs" /> 208 208 + <None Include="psr-tests\find-deficiencies.pxs" /> 209 209 + <None Include="psr-tests\lang-ext.test.pxs" /> 210 210 + <None Include="psr-tests\macro.test.pxs" /> 211 211 + <None Include="psr-tests\make_test_configuration.pxs" /> 212 212 + <None Include="psr-tests\misc.test.pxs" /> 213 213 + <None Include="psr-tests\run_tests.pxs" /> 214 214 + <None Include="psr-tests\struct.test.pxs" /> 215 215 + <None Include="Tests\Configurations\LoadConfiguration.t4"> 216 216 + <LastGenOutput>LoadConfiguration1.cs</LastGenOutput> 217 217 + </None> 218 218 + <None Include="Tests\Configurations\PsrUnitTests.tt"> 219 219 + <Generator>TextTemplatingFileGenerator</Generator> 220 220 + <LastGenOutput>PsrUnitTests.cs</LastGenOutput> 221 221 + </None> 222 222 + <None Include="Tests\Configurations\VMTestConfigurations.tt"> 223 223 + <Generator>TextTemplatingFileGenerator</Generator> 224 224 + <LastGenOutput>VMTestConfigurations.cs</LastGenOutput> 225 225 + </None> 226 226 + </ItemGroup> 227 227 + <ItemGroup> 228 228 + <Folder Include="Internal\" /> 229 229 + </ItemGroup> 230 230 + <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" /> 231 231 + <Import Project="$(SolutionDir)\.nuget\nuget.targets" /> 232 232 + <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild"> 233 233 + <PropertyGroup> 234 234 + <ErrorText>This project references NuGet package(s) that are missing on this computer. Enable NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105.The missing file is {0}.</ErrorText> 235 235 + </PropertyGroup> 236 236 + <Error Condition="!Exists('..\packages\NUnit.3.10.1\build\NUnit.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\NUnit.3.10.1\build\NUnit.props'))" /> 237 237 + <Error Condition="!Exists('..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props'))" /> 238 238 + </Target> 239 239 + <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 240 240 + Other similar extension points exist, see Microsoft.Common.targets. 241 241 + <Target Name="BeforeBuild"> 242 242 + </Target> 243 243 + <Target Name="AfterBuild"> 244 244 + </Target> 245 245 + --> 221 246 </Project>

+1 -1

PrexoniteTests/PrexoniteTests.csproj.DotSettings

Reviewed

··· 1 1 <wpf:ResourceDictionary xml:space="preserve" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:s="clr-namespace:System;assembly=mscorlib" xmlns:ss="urn:shemas-jetbrains-com:settings-storage-xaml" xmlns:wpf="http://schemas.microsoft.com/winfx/2006/xaml/presentation"> 2 2 <s:String x:Key="/Default/CodeEditing/Localization/Localizable/@EntryValue">No</s:String> 3 3 - <s:String x:Key="/Default/CodeInspection/CSharpLanguageProject/LanguageLevel/@EntryValue">CSharp70</s:String></wpf:ResourceDictionary> 3 3 + </wpf:ResourceDictionary>

+271 -273

PrexoniteTests/Tests/ApplicationLinking.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Collections; 28 28 - using System.Diagnostics; 29 29 - using System.Linq; 30 30 - using NUnit.Framework; 31 31 - using Prexonite; 32 32 - using Prexonite.Commands.Core; 33 33 - using Prexonite.Compiler; 34 34 - using Prexonite.Compiler.Symbolic; 35 35 - using Prexonite.Modular; 36 36 - 37 37 - namespace PrexoniteTests.Tests 38 38 - { 39 39 - [TestFixture] 40 40 - public class ApplicationLinking : AssertionHelper 41 41 - { 42 42 - [Test] 43 43 - public void NoLocalButCount() 44 44 - { 45 45 - var s1 = SymbolStore.Create(); 46 46 - var s = Symbol.CreateCall(EntityRef.Command.Create("print"), NoSourcePosition.Instance); 47 47 - s1.Declare("print",s); 48 48 - var s2 = SymbolStore.Create(s1); 49 49 - Assert.That(s2.IsEmpty,Is.False,"Expected s2.IsEmpty to be false."); 50 50 - } 51 51 - 52 52 - [Test] 53 53 - public void SimpleLinkUnlink() 54 54 - { 55 55 - var a1 = new Application(); 56 56 - var a2 = new Application(); 57 57 - 58 58 - Assert.That(a1.IsLinked,Is.False,"a1 should not be linked initially"); 59 59 - Assert.That(a2.IsLinked, Is.False,"a2 should not be linked initially"); 60 60 - 61 61 - Application.Link(a1,a2); 62 62 - 63 63 - Assert.That(a1.IsLinked, Is.True,"a1 should be linked"); 64 64 - Assert.That(a2.IsLinked, Is.True,"a2 should be linked"); 65 65 - 66 66 - a1.Unlink(); 67 67 - 68 68 - Assert.That(a1.IsLinked,Is.False,"a1 should not be linked afterwards"); 69 69 - Assert.That(a2.IsLinked, Is.False, "a2 should not be linked afterwards"); 70 70 - } 71 71 - 72 72 - [Test] 73 73 - public void CompoundLinking() 74 74 - { 75 75 - var aps = 76 76 - Enumerable.Range(1, 3) 77 77 - .Select(i => new Application("a" + i)) 78 78 - .ToList(); 79 79 - 80 80 - var bps = 81 81 - Enumerable.Range(1, 4) 82 82 - .Select(i => new Application("b" + i)) 83 83 - .ToList(); 84 84 - 85 85 - var ps = aps.Append(bps).ToList(); 86 86 - 87 87 - foreach (var a in ps) 88 88 - Assert.That(a.IsLinked, Is.False, 89 89 - string.Format("Application {0} should not be linked initially.", a)); 90 90 - 91 91 - //Link a's and b's, respectively 92 92 - foreach (var a in aps.Skip(1)) 93 93 - Application.Link(a, aps[0]); 94 94 - foreach (var a in bps.Skip(1)) 95 95 - Application.Link(a, bps[0]); 96 96 - 97 97 - Assert.That(aps[0].Compound,Is.Not.Contains(bps[0])); 98 98 - Assert.That(bps[0].Compound, Is.Not.Contains(aps[0])); 99 99 - 100 100 - Application.Link(aps[0],bps[1]); 101 101 - 102 102 - foreach (var a in ps) 103 103 - Assert.That(a.IsLinked, Is.True, 104 104 - string.Format("Application {0} should be linked afterwards.", a)); 105 105 - 106 106 - var c = aps[0].Compound; 107 107 - foreach (var a in ps) 108 108 - { 109 109 - Assert.That(a.Compound, Is.SameAs(c), 110 110 - string.Format( 111 111 - "Compound object of application {0} should be " + 112 112 - "identical with that of application {1}.", 113 113 - a, aps[0])); 114 114 - } 115 115 - 116 116 - Assert.That(aps[0].Compound.Count,Is.EqualTo(aps.Count + bps.Count)); 117 117 - 118 118 - Assert.That(aps[0].Compound,Is.SubsetOf(ps), "Compound contains elements not in the original set."); 119 119 - Assert.That(ps, Is.SubsetOf(aps[0].Compound), "Not all elements of the original set are in the compound."); 120 120 - 121 121 - var p = aps[0]; 122 122 - p.Unlink(); 123 123 - Assert.That(p.IsLinked,Is.False,"p should now be unlinked."); 124 124 - Assert.That(aps[1].Compound.Count,Is.EqualTo(aps.Count + bps.Count - 1),"Compound is not the right size."); 125 125 - 126 126 - foreach (var a in ps.Where(x => x != p)) 127 127 - Assert.That(a.IsLinked, Is.True, 128 128 - string.Format("Application {0} should still be linked afterwards.", a)); 129 129 - c = aps[1].Compound; 130 130 - foreach (var a in ps.Where(x => x != p)) 131 131 - { 132 132 - Assert.That(a.Compound, Is.SameAs(c), 133 133 - string.Format( 134 134 - "Compound object of application {0} should be " + 135 135 - "identical with that of application {1}.", 136 136 - a, aps[1])); 137 137 - } 138 138 - } 139 139 - 140 140 - [Test] 141 141 - public void MergeLinking() 142 142 - { 143 143 - var cps = 144 144 - Enumerable.Range(1, 3) 145 145 - .Select(i => new Application("common" + i)) 146 146 - .ToList(); 147 147 - 148 148 - var aps = 149 149 - Enumerable.Range(1, 3) 150 150 - .Select(i => new Application("a" + i)) 151 151 - .Append(cps) 152 152 - .ToList(); 153 153 - 154 154 - var bps = 155 155 - Enumerable.Range(1, 4) 156 156 - .Select(i => new Application("b" + i)) 157 157 - .Append(cps) 158 158 - .ToList(); 159 159 - 160 160 - var ps = aps.Union(bps).ToList(); 161 161 - 162 162 - foreach (var a in ps) 163 163 - Assert.That(a.IsLinked, Is.False, 164 164 - string.Format("Application {0} should not be linked initially.", a)); 165 165 - 166 166 - //Link a's and b's, respectively 167 167 - foreach (var a in aps.Skip(1)) 168 168 - Application.Link(a, aps[0]); 169 169 - foreach (var a in bps.Skip(1)) 170 170 - Application.Link(a, bps[0]); 171 171 - 172 172 - Assert.That(aps[0].Compound, Not.Member(bps)); 173 173 - Assert.That(bps[0].Compound, Not.Member(aps)); 174 174 - 175 175 - Application.Link(aps[0],bps[1]); 176 176 - 177 177 - foreach (var a in ps) 178 178 - Assert.That(a.IsLinked, Is.True, 179 179 - string.Format("Application {0} should be linked afterwards.", a.Module.Name)); 180 180 - 181 181 - var c = aps[0].Compound; 182 182 - foreach (var a in ps) 183 183 - { 184 184 - Assert.That(a.Compound, Is.SameAs(c), 185 185 - string.Format( 186 186 - "Compound object of application {0} should be " + 187 187 - "identical with that of application {1}.", 188 188 - a, aps[0])); 189 189 - } 190 190 - 191 191 - Assert.That(aps[0].Compound.Count,Is.EqualTo(ps.Count)); 192 192 - 193 193 - Assert.That(aps[0].Compound,Is.EquivalentTo(ps), "Compound is not equivalent to aps ∪ bps."); 194 194 - 195 195 - var p = cps[0]; 196 196 - p.Unlink(); 197 197 - Assert.That(p.IsLinked,Is.False,"p should now be unlinked."); 198 198 - Assert.That(aps[1].Compound.Count,Is.EqualTo(ps.Count - 1),"Compound is not the right size."); 199 199 - 200 200 - foreach (var a in ps.Where(x => x != p)) 201 201 - Assert.That(a.IsLinked, Is.True, 202 202 - string.Format("Application {0} should still be linked afterwards.", a)); 203 203 - c = aps[1].Compound; 204 204 - foreach (var a in ps.Where(x => x != p)) 205 205 - { 206 206 - Assert.That(a.Compound, Is.SameAs(c), 207 207 - string.Format( 208 208 - "Compound object of application {0} should be " + 209 209 - "identical with that of application {1}.", 210 210 - a, aps[1])); 211 211 - } 212 212 - } 213 213 - 214 214 - [Test] 215 215 - public void DryCrossModuleCall() 216 216 - { 217 217 - var m1 = Module.Create(new ModuleName("dragon", new Version(1, 2))); 218 218 - var m2 = Module.Create(new ModuleName("std", new Version(1, 3, 1))); 219 219 - 220 220 - var a1 = new Application(m1); 221 221 - var a2 = new Application(m2); 222 222 - 223 223 - var f1 = a1.CreateFunction(Application.DefaultEntryFunction); 224 224 - 225 225 - var f2 = a2.CreateFunction("sayHello"); 226 226 - 227 227 - f1.Code.Add(new Instruction(OpCode.func, 0, f2.Id, m2.Name)); 228 228 - f1.Code.Add(new Instruction(OpCode.ret_value)); 229 229 - 230 230 - const string helloModules = "Hello Modules"; 231 231 - f2.Code.Add(new Instruction(OpCode.ldc_string,helloModules)); 232 232 - f2.Code.Add(new Instruction(OpCode.ret_value)); 233 233 - 234 234 - Console.WriteLine("=========== Module {0} ==========", m1.Name); 235 235 - a1.Store(Console.Out); 236 236 - Console.WriteLine(); 237 237 - Console.WriteLine("=========== Module {0} ==========", m2.Name); 238 238 - a2.Store(Console.Out); 239 239 - 240 240 - var eng = new Engine(); 241 241 - 242 242 - try 243 243 - { 244 244 - a1.Run(eng); 245 245 - Assert.Fail("Should not succeed as applications are not linked."); 246 246 - } 247 247 - catch (PrexoniteRuntimeException e) 248 248 - { 249 249 - Console.WriteLine("EXPECTED EXCEPTION"); 250 250 - Console.WriteLine(e.Message); 251 251 - Console.WriteLine("END OF EXPECTED EXCEPTION"); 252 252 - } 253 253 - 254 254 - Application.Link(a1, a2); 255 255 - var r = a1.Run(eng); 256 256 - Expect(r.Value,Is.InstanceOf<string>()); 257 257 - Expect(r.Value,Is.EqualTo(helloModules)); 258 258 - } 259 259 - 260 260 - [Test] 261 261 - public void CreateModuleNameCommand() 262 262 - { 263 263 - var cmd = CreateModuleName.Instance; 264 264 - var eng = new Engine(); 265 265 - var app = new Application("cmnc"); 266 266 - var sctx = new NullContext(eng, app, Enumerable.Empty<string>()); 267 267 - var rawMn = cmd.Run(sctx, new[] {sctx.CreateNativePValue(new MetaEntry(new MetaEntry[]{"sys","1.0"}))}); 268 268 - Assert.That(rawMn.Value,Is.InstanceOf<ModuleName>()); 269 269 - var mn = (ModuleName) rawMn.Value; 270 270 - Assert.That(mn.Id,Is.EqualTo("sys")); 271 271 - Assert.That(mn.Version,Is.EqualTo(new Version(1,0))); 272 272 - } 273 273 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Linq; 28 28 + using NUnit.Framework; 29 29 + using Prexonite; 30 30 + using Prexonite.Commands.Core; 31 31 + using Prexonite.Compiler; 32 32 + using Prexonite.Compiler.Symbolic; 33 33 + using Prexonite.Modular; 34 34 + 35 35 + namespace PrexoniteTests.Tests 36 36 + { 37 37 + [TestFixture] 38 38 + public class ApplicationLinking 39 39 + { 40 40 + [Test] 41 41 + public void NoLocalButCount() 42 42 + { 43 43 + var s1 = SymbolStore.Create(); 44 44 + var s = Symbol.CreateCall(EntityRef.Command.Create("print"), NoSourcePosition.Instance); 45 45 + s1.Declare("print",s); 46 46 + var s2 = SymbolStore.Create(s1); 47 47 + Assert.That(s2.IsEmpty,Is.False,"Expected s2.IsEmpty to be false."); 48 48 + } 49 49 + 50 50 + [Test] 51 51 + public void SimpleLinkUnlink() 52 52 + { 53 53 + var a1 = new Application(); 54 54 + var a2 = new Application(); 55 55 + 56 56 + Assert.That(a1.IsLinked,Is.False,"a1 should not be linked initially"); 57 57 + Assert.That(a2.IsLinked, Is.False,"a2 should not be linked initially"); 58 58 + 59 59 + Application.Link(a1,a2); 60 60 + 61 61 + Assert.That(a1.IsLinked, Is.True,"a1 should be linked"); 62 62 + Assert.That(a2.IsLinked, Is.True,"a2 should be linked"); 63 63 + 64 64 + a1.Unlink(); 65 65 + 66 66 + Assert.That(a1.IsLinked,Is.False,"a1 should not be linked afterwards"); 67 67 + Assert.That(a2.IsLinked, Is.False, "a2 should not be linked afterwards"); 68 68 + } 69 69 + 70 70 + [Test] 71 71 + public void CompoundLinking() 72 72 + { 73 73 + var aps = 74 74 + Enumerable.Range(1, 3) 75 75 + .Select(i => new Application("a" + i)) 76 76 + .ToList(); 77 77 + 78 78 + var bps = 79 79 + Enumerable.Range(1, 4) 80 80 + .Select(i => new Application("b" + i)) 81 81 + .ToList(); 82 82 + 83 83 + var ps = aps.Append(bps).ToList(); 84 84 + 85 85 + foreach (var a in ps) 86 86 + Assert.That(a.IsLinked, Is.False, 87 87 + string.Format("Application {0} should not be linked initially.", a)); 88 88 + 89 89 + //Link a's and b's, respectively 90 90 + foreach (var a in aps.Skip(1)) 91 91 + Application.Link(a, aps[0]); 92 92 + foreach (var a in bps.Skip(1)) 93 93 + Application.Link(a, bps[0]); 94 94 + 95 95 + Assert.That(aps[0].Compound,Is.Not.Contains(bps[0])); 96 96 + Assert.That(bps[0].Compound, Is.Not.Contains(aps[0])); 97 97 + 98 98 + Application.Link(aps[0],bps[1]); 99 99 + 100 100 + foreach (var a in ps) 101 101 + Assert.That(a.IsLinked, Is.True, 102 102 + string.Format("Application {0} should be linked afterwards.", a)); 103 103 + 104 104 + var c = aps[0].Compound; 105 105 + foreach (var a in ps) 106 106 + { 107 107 + Assert.That(a.Compound, Is.SameAs(c), 108 108 + string.Format( 109 109 + "Compound object of application {0} should be " + 110 110 + "identical with that of application {1}.", 111 111 + a, aps[0])); 112 112 + } 113 113 + 114 114 + Assert.That(aps[0].Compound.Count,Is.EqualTo(aps.Count + bps.Count)); 115 115 + 116 116 + Assert.That(aps[0].Compound,Is.SubsetOf(ps), "Compound contains elements not in the original set."); 117 117 + Assert.That(ps, Is.SubsetOf(aps[0].Compound), "Not all elements of the original set are in the compound."); 118 118 + 119 119 + var p = aps[0]; 120 120 + p.Unlink(); 121 121 + Assert.That(p.IsLinked,Is.False,"p should now be unlinked."); 122 122 + Assert.That(aps[1].Compound.Count,Is.EqualTo(aps.Count + bps.Count - 1),"Compound is not the right size."); 123 123 + 124 124 + foreach (var a in ps.Where(x => x != p)) 125 125 + Assert.That(a.IsLinked, Is.True, 126 126 + string.Format("Application {0} should still be linked afterwards.", a)); 127 127 + c = aps[1].Compound; 128 128 + foreach (var a in ps.Where(x => x != p)) 129 129 + { 130 130 + Assert.That(a.Compound, Is.SameAs(c), 131 131 + string.Format( 132 132 + "Compound object of application {0} should be " + 133 133 + "identical with that of application {1}.", 134 134 + a, aps[1])); 135 135 + } 136 136 + } 137 137 + 138 138 + [Test] 139 139 + public void MergeLinking() 140 140 + { 141 141 + var cps = 142 142 + Enumerable.Range(1, 3) 143 143 + .Select(i => new Application("common" + i)) 144 144 + .ToList(); 145 145 + 146 146 + var aps = 147 147 + Enumerable.Range(1, 3) 148 148 + .Select(i => new Application("a" + i)) 149 149 + .Append(cps) 150 150 + .ToList(); 151 151 + 152 152 + var bps = 153 153 + Enumerable.Range(1, 4) 154 154 + .Select(i => new Application("b" + i)) 155 155 + .Append(cps) 156 156 + .ToList(); 157 157 + 158 158 + var ps = aps.Union(bps).ToList(); 159 159 + 160 160 + foreach (var a in ps) 161 161 + Assert.That(a.IsLinked, Is.False, 162 162 + string.Format("Application {0} should not be linked initially.", a)); 163 163 + 164 164 + //Link a's and b's, respectively 165 165 + foreach (var a in aps.Skip(1)) 166 166 + Application.Link(a, aps[0]); 167 167 + foreach (var a in bps.Skip(1)) 168 168 + Application.Link(a, bps[0]); 169 169 + 170 170 + Assert.That(aps[0].Compound, !Contains.Item(bps)); 171 171 + Assert.That(bps[0].Compound, !Contains.Item(aps)); 172 172 + 173 173 + Application.Link(aps[0],bps[1]); 174 174 + 175 175 + foreach (var a in ps) 176 176 + Assert.That(a.IsLinked, Is.True, 177 177 + string.Format("Application {0} should be linked afterwards.", a.Module.Name)); 178 178 + 179 179 + var c = aps[0].Compound; 180 180 + foreach (var a in ps) 181 181 + { 182 182 + Assert.That(a.Compound, Is.SameAs(c), 183 183 + string.Format( 184 184 + "Compound object of application {0} should be " + 185 185 + "identical with that of application {1}.", 186 186 + a, aps[0])); 187 187 + } 188 188 + 189 189 + Assert.That(aps[0].Compound.Count,Is.EqualTo(ps.Count)); 190 190 + 191 191 + Assert.That(aps[0].Compound,Is.EquivalentTo(ps), "Compound is not equivalent to aps ∪ bps."); 192 192 + 193 193 + var p = cps[0]; 194 194 + p.Unlink(); 195 195 + Assert.That(p.IsLinked,Is.False,"p should now be unlinked."); 196 196 + Assert.That(aps[1].Compound.Count,Is.EqualTo(ps.Count - 1),"Compound is not the right size."); 197 197 + 198 198 + foreach (var a in ps.Where(x => x != p)) 199 199 + Assert.That(a.IsLinked, Is.True, 200 200 + string.Format("Application {0} should still be linked afterwards.", a)); 201 201 + c = aps[1].Compound; 202 202 + foreach (var a in ps.Where(x => x != p)) 203 203 + { 204 204 + Assert.That(a.Compound, Is.SameAs(c), 205 205 + string.Format( 206 206 + "Compound object of application {0} should be " + 207 207 + "identical with that of application {1}.", 208 208 + a, aps[1])); 209 209 + } 210 210 + } 211 211 + 212 212 + [Test] 213 213 + public void DryCrossModuleCall() 214 214 + { 215 215 + var m1 = Module.Create(new ModuleName("dragon", new Version(1, 2))); 216 216 + var m2 = Module.Create(new ModuleName("std", new Version(1, 3, 1))); 217 217 + 218 218 + var a1 = new Application(m1); 219 219 + var a2 = new Application(m2); 220 220 + 221 221 + var f1 = a1.CreateFunction(Application.DefaultEntryFunction); 222 222 + 223 223 + var f2 = a2.CreateFunction("sayHello"); 224 224 + 225 225 + f1.Code.Add(new Instruction(OpCode.func, 0, f2.Id, m2.Name)); 226 226 + f1.Code.Add(new Instruction(OpCode.ret_value)); 227 227 + 228 228 + const string helloModules = "Hello Modules"; 229 229 + f2.Code.Add(new Instruction(OpCode.ldc_string,helloModules)); 230 230 + f2.Code.Add(new Instruction(OpCode.ret_value)); 231 231 + 232 232 + Console.WriteLine("=========== Module {0} ==========", m1.Name); 233 233 + a1.Store(Console.Out); 234 234 + Console.WriteLine(); 235 235 + Console.WriteLine("=========== Module {0} ==========", m2.Name); 236 236 + a2.Store(Console.Out); 237 237 + 238 238 + var eng = new Engine(); 239 239 + 240 240 + try 241 241 + { 242 242 + a1.Run(eng); 243 243 + Assert.Fail("Should not succeed as applications are not linked."); 244 244 + } 245 245 + catch (PrexoniteRuntimeException e) 246 246 + { 247 247 + Console.WriteLine("EXPECTED EXCEPTION"); 248 248 + Console.WriteLine(e.Message); 249 249 + Console.WriteLine("END OF EXPECTED EXCEPTION"); 250 250 + } 251 251 + 252 252 + Application.Link(a1, a2); 253 253 + var r = a1.Run(eng); 254 254 + Assert.That(r.Value,Is.InstanceOf<string>()); 255 255 + Assert.That(r.Value,Is.EqualTo(helloModules)); 256 256 + } 257 257 + 258 258 + [Test] 259 259 + public void CreateModuleNameCommand() 260 260 + { 261 261 + var cmd = CreateModuleName.Instance; 262 262 + var eng = new Engine(); 263 263 + var app = new Application("cmnc"); 264 264 + var sctx = new NullContext(eng, app, Enumerable.Empty<string>()); 265 265 + var rawMn = cmd.Run(sctx, new[] {sctx.CreateNativePValue(new MetaEntry(new MetaEntry[]{"sys","1.0"}))}); 266 266 + Assert.That(rawMn.Value,Is.InstanceOf<ModuleName>()); 267 267 + var mn = (ModuleName) rawMn.Value; 268 268 + Assert.That(mn.Id,Is.EqualTo("sys")); 269 269 + Assert.That(mn.Version,Is.EqualTo(new Version(1,0))); 270 270 + } 271 271 + } 274 272 }

+165 -163

PrexoniteTests/Tests/AstTests.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Collections.Generic; 28 28 - using System.Linq; 29 29 - using NUnit.Framework; 30 30 - using Prexonite; 31 31 - using Prexonite.Compiler.Ast; 32 32 - 33 33 - namespace PrexoniteTests.Tests 34 34 - { 35 35 - [TestFixture] 36 36 - public class AstTests 37 37 - { 38 38 - private static AstPlaceholder _createPlaceholder(int? index = null) 39 39 - { 40 40 - return new AstPlaceholder("-file", -1, -2) {Index = index}; 41 41 - } 42 42 - 43 43 - [Test] 44 44 - public void DeterminePlaceholderIndicesNormalTets() 45 45 - { 46 46 - //(?,?2,?,?2,?1) 47 47 - var placeholders = new List<AstPlaceholder> 48 48 - { 49 49 - _createPlaceholder(), 50 50 - _createPlaceholder(1), 51 51 - _createPlaceholder(), 52 52 - _createPlaceholder(1), 53 53 - _createPlaceholder(0) 54 54 - }; 55 55 - 56 56 - var copy = placeholders.ToList(); 57 57 - Assert.AreNotSame(copy, placeholders); 58 58 - 59 59 - AstPlaceholder.DeterminePlaceholderIndices(placeholders); 60 60 - 61 61 - //First assert that the list itself has not been altered 62 62 - Assert.AreEqual(placeholders.Count, copy.Count); 63 63 - for (var i = 0; i < placeholders.Count; i++) 64 64 - Assert.AreSame(copy[i], placeholders[i], "List itself must not be altered."); 65 65 - 66 66 - //Expexted mapping (0-based): 67 67 - // ?2, ?1, ?3, ?1, ?0 68 68 - foreach (var placeholder in placeholders) 69 69 - Assert.IsTrue(placeholder.Index.HasValue, 70 70 - "All placeholders should be assigned afterwards."); 71 71 - 72 72 - // ReSharper disable PossibleInvalidOperationException 73 73 - Assert.AreEqual(2, placeholders[0].Index.Value, 74 74 - "Placeholder at source position 0 is not mapped correctly"); 75 75 - Assert.AreEqual(1, placeholders[1].Index.Value, 76 76 - "Placeholder at source position 1 is not mapped correctly"); 77 77 - Assert.AreEqual(3, placeholders[2].Index.Value, 78 78 - "Placeholder at source position 2 is not mapped correctly"); 79 79 - Assert.AreEqual(1, placeholders[3].Index.Value, 80 80 - "Placeholder at source position 3 is not mapped correctly"); 81 81 - Assert.AreEqual(0, placeholders[4].Index.Value, 82 82 - "Placeholder at source position 4 is not mapped correctly"); 83 83 - // ReSharper restore PossibleInvalidOperationException 84 84 - } 85 85 - 86 86 - [Test] 87 87 - public void DeterminePlaceholderIndicesEmptyTets() 88 88 - { 89 89 - AstPlaceholder.DeterminePlaceholderIndices(Enumerable.Empty<AstPlaceholder>()); 90 90 - } 91 91 - 92 92 - [Test, ExpectedException(typeof (NullReferenceException))] 93 93 - public void DeterminePlaceholderIndicesRejectNullTets() 94 94 - { 95 95 - AstPlaceholder.DeterminePlaceholderIndices(Extensions.Singleton<AstPlaceholder>(null)); 96 96 - } 97 97 - 98 98 - [Test] 99 99 - public void RemoveRedundant1() 100 100 - { 101 101 - const string file = "THE_FILE"; 102 102 - const int line = 666; 103 103 - const int col = 555; 104 104 - //test case from MissingMapped 105 105 - var subject = new AstNull(file, line, col); 106 106 - var argv = new List<AstExpr> 107 107 - { 108 108 - subject, 109 109 - _createPlaceholder(1), 110 110 - _createPlaceholder(2) 111 111 - }; 112 112 - var originalArgv = argv.ToList(); 113 113 - 114 114 - _placeholderArgvProcessing(argv); 115 115 - 116 116 - Assert.AreEqual(3, argv.Count, "argc changed"); 117 117 - for (var i = 0; i < argv.Count; i++) 118 118 - Assert.AreSame(originalArgv[i], argv[i]); 119 119 - } 120 120 - 121 121 - private static void _placeholderArgvProcessing(List<AstExpr> argv) 122 122 - { 123 123 - Console.WriteLine("ARGV implicit:"); 124 124 - foreach (var expr in argv) 125 125 - Console.WriteLine("\t{0}", expr); 126 126 - 127 127 - AstPlaceholder.DeterminePlaceholderIndices(argv.MapMaybe(x => x as AstPlaceholder)); 128 128 - 129 129 - Console.WriteLine("ARGV explicit:"); 130 130 - foreach (var expr in argv) 131 131 - Console.WriteLine("\t{0}", expr); 132 132 - 133 133 - AstPartiallyApplicable.RemoveRedundantPlaceholders(argv); 134 134 - 135 135 - Console.WriteLine("ARGV minimal:"); 136 136 - foreach (var expr in argv) 137 137 - Console.WriteLine("\t{0}", expr); 138 138 - } 139 139 - 140 140 - [Test] 141 141 - public void RemoveRedundant2() 142 142 - { 143 143 - const string file = "THE_FILE"; 144 144 - const int line = 666; 145 145 - const int col = 555; 146 146 - //test case from MissingMapped 147 147 - var subject = new AstNull(file, line, col); 148 148 - var argv = new List<AstExpr> 149 149 - { 150 150 - subject, 151 151 - _createPlaceholder(2), 152 152 - _createPlaceholder(), 153 153 - _createPlaceholder(1) 154 154 - }; 155 155 - var originalArgv = argv.GetRange(0, 2); 156 156 - 157 157 - _placeholderArgvProcessing(argv); 158 158 - 159 159 - Assert.AreEqual(originalArgv.Count, argv.Count, "argc not correct"); 160 160 - for (var i = 0; i < originalArgv.Count; i++) 161 161 - Assert.AreSame(originalArgv[i], argv[i]); 162 162 - } 163 163 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Collections.Generic; 28 28 + using System.Linq; 29 29 + using NUnit.Framework; 30 30 + using Prexonite; 31 31 + using Prexonite.Compiler.Ast; 32 32 + 33 33 + namespace PrexoniteTests.Tests 34 34 + { 35 35 + [TestFixture] 36 36 + public class AstTests 37 37 + { 38 38 + private static AstPlaceholder _createPlaceholder(int? index = null) 39 39 + { 40 40 + return new AstPlaceholder("-file", -1, -2) {Index = index}; 41 41 + } 42 42 + 43 43 + [Test] 44 44 + public void DeterminePlaceholderIndicesNormalTets() 45 45 + { 46 46 + //(?,?2,?,?2,?1) 47 47 + var placeholders = new List<AstPlaceholder> 48 48 + { 49 49 + _createPlaceholder(), 50 50 + _createPlaceholder(1), 51 51 + _createPlaceholder(), 52 52 + _createPlaceholder(1), 53 53 + _createPlaceholder(0) 54 54 + }; 55 55 + 56 56 + var copy = placeholders.ToList(); 57 57 + Assert.AreNotSame(copy, placeholders); 58 58 + 59 59 + AstPlaceholder.DeterminePlaceholderIndices(placeholders); 60 60 + 61 61 + //First assert that the list itself has not been altered 62 62 + Assert.AreEqual(placeholders.Count, copy.Count); 63 63 + for (var i = 0; i < placeholders.Count; i++) 64 64 + Assert.AreSame(copy[i], placeholders[i], "List itself must not be altered."); 65 65 + 66 66 + //Expexted mapping (0-based): 67 67 + // ?2, ?1, ?3, ?1, ?0 68 68 + foreach (var placeholder in placeholders) 69 69 + Assert.IsTrue(placeholder.Index.HasValue, 70 70 + "All placeholders should be assigned afterwards."); 71 71 + 72 72 + // ReSharper disable PossibleInvalidOperationException 73 73 + Assert.AreEqual(2, placeholders[0].Index.Value, 74 74 + "Placeholder at source position 0 is not mapped correctly"); 75 75 + Assert.AreEqual(1, placeholders[1].Index.Value, 76 76 + "Placeholder at source position 1 is not mapped correctly"); 77 77 + Assert.AreEqual(3, placeholders[2].Index.Value, 78 78 + "Placeholder at source position 2 is not mapped correctly"); 79 79 + Assert.AreEqual(1, placeholders[3].Index.Value, 80 80 + "Placeholder at source position 3 is not mapped correctly"); 81 81 + Assert.AreEqual(0, placeholders[4].Index.Value, 82 82 + "Placeholder at source position 4 is not mapped correctly"); 83 83 + // ReSharper restore PossibleInvalidOperationException 84 84 + } 85 85 + 86 86 + [Test] 87 87 + public void DeterminePlaceholderIndicesEmptyTets() 88 88 + { 89 89 + AstPlaceholder.DeterminePlaceholderIndices(Enumerable.Empty<AstPlaceholder>()); 90 90 + } 91 91 + 92 92 + [Test] 93 93 + public void DeterminePlaceholderIndicesRejectNullTets() 94 94 + { 95 95 + Assert.Throws<NullReferenceException>(() => 96 96 + AstPlaceholder.DeterminePlaceholderIndices(Extensions.Singleton<AstPlaceholder>(null)) 97 97 + ); 98 98 + } 99 99 + 100 100 + [Test] 101 101 + public void RemoveRedundant1() 102 102 + { 103 103 + const string file = "THE_FILE"; 104 104 + const int line = 666; 105 105 + const int col = 555; 106 106 + //test case from MissingMapped 107 107 + var subject = new AstNull(file, line, col); 108 108 + var argv = new List<AstExpr> 109 109 + { 110 110 + subject, 111 111 + _createPlaceholder(1), 112 112 + _createPlaceholder(2) 113 113 + }; 114 114 + var originalArgv = argv.ToList(); 115 115 + 116 116 + _placeholderArgvProcessing(argv); 117 117 + 118 118 + Assert.AreEqual(3, argv.Count, "argc changed"); 119 119 + for (var i = 0; i < argv.Count; i++) 120 120 + Assert.AreSame(originalArgv[i], argv[i]); 121 121 + } 122 122 + 123 123 + private static void _placeholderArgvProcessing(List<AstExpr> argv) 124 124 + { 125 125 + Console.WriteLine("ARGV implicit:"); 126 126 + foreach (var expr in argv) 127 127 + Console.WriteLine("\t{0}", expr); 128 128 + 129 129 + AstPlaceholder.DeterminePlaceholderIndices(argv.MapMaybe(x => x as AstPlaceholder)); 130 130 + 131 131 + Console.WriteLine("ARGV explicit:"); 132 132 + foreach (var expr in argv) 133 133 + Console.WriteLine("\t{0}", expr); 134 134 + 135 135 + AstPartiallyApplicable.RemoveRedundantPlaceholders(argv); 136 136 + 137 137 + Console.WriteLine("ARGV minimal:"); 138 138 + foreach (var expr in argv) 139 139 + Console.WriteLine("\t{0}", expr); 140 140 + } 141 141 + 142 142 + [Test] 143 143 + public void RemoveRedundant2() 144 144 + { 145 145 + const string file = "THE_FILE"; 146 146 + const int line = 666; 147 147 + const int col = 555; 148 148 + //test case from MissingMapped 149 149 + var subject = new AstNull(file, line, col); 150 150 + var argv = new List<AstExpr> 151 151 + { 152 152 + subject, 153 153 + _createPlaceholder(2), 154 154 + _createPlaceholder(), 155 155 + _createPlaceholder(1) 156 156 + }; 157 157 + var originalArgv = argv.GetRange(0, 2); 158 158 + 159 159 + _placeholderArgvProcessing(argv); 160 160 + 161 161 + Assert.AreEqual(originalArgv.Count, argv.Count, "argc not correct"); 162 162 + for (var i = 0; i < originalArgv.Count; i++) 163 163 + Assert.AreSame(originalArgv[i], argv[i]); 164 164 + } 165 165 + } 164 166 }

+647 -645

PrexoniteTests/Tests/CilCompilerTests.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System.Collections.Generic; 27 27 - using System.Linq; 28 28 - using NUnit.Framework; 29 29 - using Prexonite; 30 30 - using Prexonite.Compiler; 31 31 - using Prexonite.Compiler.Cil; 32 32 - 33 33 - namespace PrexoniteTests.Tests 34 34 - { 35 35 - [TestFixture] 36 36 - public class CilCompilerTests : VMTestsBase 37 37 - { 38 38 - [Test] 39 39 - public void SetCilHintTest() 40 40 - { 41 41 - Compile(@" 42 42 - function main() { 43 43 - foreach(var x in var args) 44 44 - println(x); 45 45 - }"); 46 46 - 47 47 - var main = target.Functions["main"]; 48 48 - 49 49 - var cilExt1 = new CilExtensionHint(new List<int> {1, 5, 9}); 50 50 - var existingHints = _getCilHints(main, true); 51 51 - Assert.AreEqual(1, existingHints.Length); 52 52 - 53 53 - //Add, none existing 54 54 - Compiler.SetCilHint(main, cilExt1); 55 55 - var hints1 = _getCilHints(main, true); 56 56 - Assert.AreNotSame(existingHints, hints1); 57 57 - Assert.AreEqual(2, hints1.Length); 58 58 - Assert.IsTrue(hints1[1].IsList); 59 59 - var cilExt1P = CilExtensionHint.FromMetaEntry(hints1[1].List); 60 60 - Assert.IsTrue( 61 61 - cilExt1P.Offsets.All(offset => cilExt1.Offsets.Contains(offset)), 62 62 - "deserialized contains elements not in original"); 63 63 - Assert.IsTrue(cilExt1.Offsets.All(offset => cilExt1P.Offsets.Contains(offset)), 64 64 - "original contains elements not in deserialized"); 65 65 - 66 66 - //Add, one existing 67 67 - var cilExt2 = new CilExtensionHint(new List<int> {2, 4, 8, 16}); 68 68 - Compiler.SetCilHint(main, cilExt2); 69 69 - var hints2 = _getCilHints(main, true); 70 70 - Assert.AreSame(hints1, hints2); 71 71 - Assert.AreEqual(2, hints2.Length); 72 72 - Assert.IsTrue(hints2[1].IsList); 73 73 - var cilExt2P = CilExtensionHint.FromMetaEntry(hints2[1].List); 74 74 - Assert.IsTrue( 75 75 - cilExt2P.Offsets.All(offset => cilExt2.Offsets.Contains(offset)), 76 76 - "deserialized contains elements not in original"); 77 77 - Assert.IsTrue(cilExt2.Offsets.All(offset => cilExt2P.Offsets.Contains(offset)), 78 78 - "original contains elements not in deserialized"); 79 79 - 80 80 - //Add, many existing 81 81 - var cilExts = new List<CilExtensionHint> 82 82 - { 83 83 - new CilExtensionHint(new List<int> {1, 6, 16, 66}), 84 84 - new CilExtensionHint(new List<int> {7, 77, 777}), 85 85 - new CilExtensionHint(new List<int> {9, 88, 777, 6666}), 86 86 - }; 87 87 - foreach (var cilExt in cilExts) 88 88 - Compiler.AddCilHint(main, cilExt); 89 89 - var hints3 = _getCilHints(main, true); 90 90 - Assert.AreNotSame(hints2, hints3); 91 91 - Assert.AreEqual(5, hints3.Length); 92 92 - var cilExt3 = new CilExtensionHint(new List<int> {44, 55, 66, 77, 88}); 93 93 - Compiler.SetCilHint(main, cilExt3); 94 94 - var hints4 = _getCilHints(main, true); 95 95 - Assert.AreNotSame(hints3, hints4); 96 96 - Assert.AreEqual(2, hints4.Length); 97 97 - Assert.IsTrue(hints4[1].IsList); 98 98 - var cilExt3P = CilExtensionHint.FromMetaEntry(hints4[1].List); 99 99 - Assert.IsTrue( 100 100 - cilExt3P.Offsets.All(offset => cilExt3.Offsets.Contains(offset)), 101 101 - "deserialized contains elements not in original"); 102 102 - Assert.IsTrue(cilExt3.Offsets.All(offset => cilExt3P.Offsets.Contains(offset)), 103 103 - "original contains elements not in deserialized"); 104 104 - 105 105 - 106 106 - //Add, no cil hints key yet 107 107 - var emptyFunc = target.CreateFunction(); 108 108 - emptyFunc.Meta[PFunction.IdKey] = "empty"; 109 109 - Compiler.SetCilHint(main, cilExt3); 110 110 - var hints5 = _getCilHints(main, true); 111 111 - Assert.AreEqual(2, hints5.Length); 112 112 - Assert.IsTrue(hints5[0].IsList); 113 113 - var cilExt4P = CilExtensionHint.FromMetaEntry(hints5[1].List); 114 114 - Assert.IsTrue( 115 115 - cilExt4P.Offsets.All(offset => cilExt3.Offsets.Contains(offset)), 116 116 - "deserialized contains elements not in original"); 117 117 - Assert.IsTrue(cilExt3.Offsets.All(offset => cilExt4P.Offsets.Contains(offset)), 118 118 - "original contains elements not in deserialized"); 119 119 - } 120 120 - 121 121 - private static MetaEntry[] _getCilHints(IHasMetaTable table, bool keyMustExist) 122 122 - { 123 123 - MetaEntry cilHintsEntry; 124 124 - if (table.Meta.TryGetValue(Loader.CilHintsKey, out cilHintsEntry)) 125 125 - { 126 126 - Assert.IsTrue(cilHintsEntry.IsList, "CIL hints entry must be a list."); 127 127 - return cilHintsEntry.List; 128 128 - } 129 129 - else if (keyMustExist) 130 130 - { 131 131 - Assert.Fail("Meta table of {0} does not contain cil hints.", table); 132 132 - return null; 133 133 - } 134 134 - else 135 135 - { 136 136 - table.Meta[Loader.CilHintsKey] = (MetaEntry) new MetaEntry[0]; 137 137 - return _getCilHints(table, true); 138 138 - } 139 139 - } 140 140 - 141 141 - [Test] 142 142 - public void UnbindCommandTest() 143 143 - { 144 144 - Compile( 145 145 - @" 146 146 - function main() 147 147 - { 148 148 - var result = []; 149 149 - var x = 1; 150 150 - ref y = ->x; 151 151 - result[] = x == 1; 152 152 - result[] = ->x == ->y; 153 153 - new var x; 154 154 - result[] = x == 1; 155 155 - result[] = not System::Object.ReferenceEquals(->x, ->y); 156 156 - 157 157 - result[] = var x == new var x; 158 158 - result[] = x == 1; 159 159 - result[] = not System::Object.ReferenceEquals(->x, ->y); 160 160 - 161 161 - //behave like ordinary command 162 162 - result[] = unbind(->x) is null; 163 163 - result[] = x == 1; 164 164 - result[] = not System::Object.ReferenceEquals(->x, ->y); 165 165 - 166 166 - return result; 167 167 - } 168 168 - "); 169 169 - _expectCil(); 170 170 - Expect(Enumerable.Range(1, 10).Select(_ => (PValue) true).ToList()); 171 171 - } 172 172 - 173 173 - 174 174 - [Test] 175 175 - public void JumpBreaksCilExtensions() 176 176 - { 177 177 - Compile( 178 178 - @" 179 179 - function main(b) 180 180 - {asm{ 181 181 - ldloc b 182 182 - ldc.int 4 183 183 - cmd.2 (==) 184 184 - jump.f L_else 185 185 - label L_if ldc.string ""IF"" 186 186 - jump L_endif 187 187 - label L_else ldc.string ""ELSE"" 188 188 - label L_endif ldc.string ""-branch"" 189 189 - cmd.2 (+) 190 190 - ret 191 191 - }} 192 192 - "); 193 193 - Assert.AreEqual(1, _getCilHints(target.Functions["main"], true).Length); 194 194 - _expectCil(); 195 195 - Expect("IF-branch", 4); 196 196 - Expect("ELSE-branch", 3); 197 197 - Expect("ELSE-branch", 5); 198 198 - } 199 199 - 200 200 - [Test] 201 201 - public void TryCatchFinallyCompiles() 202 202 - { 203 203 - Compile( 204 204 - @" 205 205 - var t = """"; 206 206 - function trace(x) = t+=x; 207 207 - 208 208 - function main() 209 209 - { 210 210 - try { 211 211 - trace(""t""); 212 212 - throw ""e""; 213 213 - }catch(var exc){ 214 214 - trace(""c""); 215 215 - trace(exc.Message); 216 216 - }finally{ 217 217 - trace(""f""); 218 218 - } 219 219 - 220 220 - return t; 221 221 - } 222 222 - "); 223 223 - _expectCil(); 224 224 - Expect("tfce"); 225 225 - } 226 226 - 227 227 - private void _expectCil(string functionId = "main") 228 228 - { 229 229 - var func = target.Functions[functionId]; 230 230 - Assert.IsNotNull(func, "Function " + functionId + " must exist"); 231 231 - Assert.IsFalse(func.Meta[PFunction.VolatileKey].Switch, 232 232 - functionId + " must not be volatile."); 233 233 - } 234 234 - 235 235 - [Test, ExpectedException(typeof (PrexoniteRuntimeException))] 236 236 - public void TryFinallyCondCompiles() 237 237 - { 238 238 - Compile( 239 239 - @" 240 240 - var t = """"; 241 241 - function trace(x) = t+=x; 242 242 - 243 243 - function main(x) 244 244 - { 245 245 - try { 246 246 - trace(""t""); 247 247 - if(x) 248 248 - throw ""e""; 249 249 - }finally{ 250 250 - trace(""f""); 251 251 - } 252 252 - 253 253 - return t; 254 254 - } 255 255 - "); 256 256 - _expectCil(); 257 257 - Expect("tf", true); 258 258 - } 259 259 - 260 260 - [Test] 261 261 - public void TryCatchCondCompiles() 262 262 - { 263 263 - Compile( 264 264 - @" 265 265 - var t = """"; 266 266 - function trace(x) = t+=x; 267 267 - 268 268 - function main(x) 269 269 - { 270 270 - try { 271 271 - trace(""t""); 272 272 - if(x) 273 273 - throw ""e""; 274 274 - }catch(var exc){ 275 275 - trace(""c""); 276 276 - trace(exc.Message); 277 277 - } 278 278 - 279 279 - return t; 280 280 - } 281 281 - "); 282 282 - _expectCil(); 283 283 - Expect("tce", true); 284 284 - } 285 285 - 286 286 - [Test] 287 287 - public void CatchInFinally1() 288 288 - { 289 289 - Compile( 290 290 - @" 291 291 - var t = """"; 292 292 - function trace(x) = t+=x; 293 293 - 294 294 - function main(x) 295 295 - { 296 296 - try { 297 297 - try { 298 298 - trace(""t""); 299 299 - if(x) 300 300 - throw ""e""; 301 301 - }catch(var exc){ 302 302 - trace(""c""); 303 303 - trace(exc.Message); 304 304 - } 305 305 - } finally { 306 306 - trace(""f""); 307 307 - } 308 308 - 309 309 - return t; 310 310 - } 311 311 - "); 312 312 - _expectCil(); 313 313 - Expect("tcef", true); 314 314 - } 315 315 - 316 316 - [Test] 317 317 - public void CatchInFinally2() 318 318 - { 319 319 - Compile( 320 320 - @" 321 321 - var t = """"; 322 322 - function trace(x) = t+=x; 323 323 - 324 324 - function main(x) 325 325 - { 326 326 - try { 327 327 - try { 328 328 - trace(""t""); 329 329 - throw ""e""; 330 330 - }catch(var exc){ 331 331 - if(x) 332 332 - trace(""x""); 333 333 - } 334 334 - } finally { 335 335 - trace(""f""); 336 336 - } 337 337 - 338 338 - return t; 339 339 - } 340 340 - "); 341 341 - 342 342 - _expectCil(); 343 343 - Expect("txf", true); 344 344 - } 345 345 - 346 346 - [Test] 347 347 - public void CatchInFinally3() 348 348 - { 349 349 - Compile( 350 350 - @" 351 351 - var t = """"; 352 352 - function trace(x) = t+=x; 353 353 - 354 354 - function main(x) 355 355 - { 356 356 - try { 357 357 - try { 358 358 - trace(""t""); 359 359 - throw ""e""; 360 360 - }catch(var exc){ 361 361 - if(x) 362 362 - trace(""x""); 363 363 - } 364 364 - } catch(var exc){ 365 365 - trace(""e""); 366 366 - } finally { 367 367 - trace(""f""); 368 368 - } 369 369 - 370 370 - return t; 371 371 - } 372 372 - "); 373 373 - _expectCil(); 374 374 - Expect("txf", true); 375 375 - } 376 376 - 377 377 - [Test] 378 378 - public void CatchInFinally4() 379 379 - { 380 380 - Compile( 381 381 - @" 382 382 - var t = """"; 383 383 - function trace(x) = t+=x; 384 384 - 385 385 - function main(x) [store_debug_implementation enabled;] 386 386 - { 387 387 - for(var i = 1; i < 6; i++) 388 388 - try 389 389 - { 390 390 - try 391 391 - { 392 392 - throw i; 393 393 - } 394 394 - catch(var exc) 395 395 - { 396 396 - if(x) 397 397 - throw exc; 398 398 - } 399 399 - } 400 400 - catch(var exc) 401 401 - { 402 402 - trace(""e""); 403 403 - } 404 404 - finally 405 405 - { 406 406 - trace(""f""); 407 407 - } 408 408 - return t; 409 409 - } 410 410 - "); 411 411 - _expectCil(); 412 412 - Expect("fefefefefe", true); 413 413 - } 414 414 - 415 415 - [Test] 416 416 - public void CatchInFinally5() 417 417 - { 418 418 - Compile( 419 419 - @" 420 420 - var t = """"; 421 421 - function trace(x) = t+=x; 422 422 - 423 423 - function main(x,y) [store_debug_implementation enabled;] 424 424 - { 425 425 - try 426 426 - { 427 427 - try 428 428 - { 429 429 - throw ""i""; //this must be a throw; won't work with trace 430 430 - } 431 431 - catch(var exc) 432 432 - { 433 433 - if(not x) //needs to be false (it's a runtime error after all) 434 434 - throw exc; 435 435 - } 436 436 - } //must be a nested block 437 437 - finally 438 438 - { 439 439 - trace(""f""); 440 440 - } 441 441 - return t; 442 442 - } 443 443 - "); 444 444 - _expectCil(); 445 445 - Expect("f", true, true); 446 446 - } 447 447 - 448 448 - [Test] 449 449 - public void TryCatchFinallyCondCompiles() 450 450 - { 451 451 - Compile( 452 452 - @" 453 453 - var t = """"; 454 454 - function trace(x) = t+=x; 455 455 - 456 456 - function main(x) //[store_debug_implementation enabled;] 457 457 - { 458 458 - try { 459 459 - trace(""t""); 460 460 - if(x) 461 461 - throw ""e""; 462 462 - }catch(var exc){ 463 463 - trace(""c""); 464 464 - trace(exc.Message); 465 465 - }finally{ 466 466 - trace(""f""); 467 467 - } 468 468 - 469 469 - return t; 470 470 - } 471 471 - "); 472 472 - _expectCil(); 473 473 - Expect("tfce", true); 474 474 - } 475 475 - 476 476 - [Test, 477 477 - ExpectedException(typeof (PrexoniteRuntimeException), 478 478 - ExpectedMessage = 479 479 - @"Unexpected leave instruction. This happens when jumping to an instruction in a try block from the outside." 480 480 - )] 481 481 - public void LabelOnFirstNeLabelOnTry() 482 482 - { 483 483 - Compile( 484 484 - @" 485 485 - var t = """"; 486 486 - function trace(x) = t+=x; 487 487 - 488 488 - function main(x) //[store_debug_implementation enabled;] 489 489 - { 490 490 - try { 491 491 - trace(""t""); 492 492 - goto L1; 493 493 - trace(""z""); 494 494 - } finally { 495 495 - trace(""f""); 496 496 - } 497 497 - 498 498 - try { 499 499 - trace(""g""); 500 500 - try { 501 501 - L1: trace(""b""); 502 502 - } finally { 503 503 - trace(""r""); 504 504 - } 505 505 - } finally { 506 506 - trace(""v""); 507 507 - } 508 508 - 509 509 - return t; 510 510 - } 511 511 - "); 512 512 - _expectSehDeficiency(); 513 513 - Expect("undefined", true); 514 514 - } 515 515 - 516 516 - [Test] 517 517 - public void TryFinallyShadowingNoBridge() 518 518 - { 519 519 - Compile( 520 520 - @" 521 521 - var t = """"; 522 522 - function trace(x) = t+=x; 523 523 - 524 524 - //This tets is expected not to compile to CIL 525 525 - function main(x) //[store_debug_implementation enabled;] 526 526 - { 527 527 - try { 528 528 - trace(""t""); 529 529 - goto L1; 530 530 - trace(""z""); 531 531 - } finally { 532 532 - trace(""f""); 533 533 - } 534 534 - 535 535 - try { 536 536 - trace(""g""); 537 537 - L1: try { 538 538 - trace(""b""); 539 539 - } finally { 540 540 - trace(""r""); 541 541 - } 542 542 - } finally { 543 543 - trace(""v""); 544 544 - } 545 545 - 546 546 - return t; 547 547 - } 548 548 - "); 549 549 - _expectSehDeficiency(); 550 550 - Expect("tbrv", true); 551 551 - } 552 552 - 553 553 - [Test] 554 554 - public void TryFinallyShadowingBridge() 555 555 - { 556 556 - Compile( 557 557 - @" 558 558 - var t = """"; 559 559 - function trace(x) = t+=x; 560 560 - 561 561 - function main(x) //[store_debug_implementation enabled;] 562 562 - { 563 563 - try { 564 564 - trace(""k""); 565 565 - try { 566 566 - trace(""t""); 567 567 - goto L1; 568 568 - trace(""z""); 569 569 - } finally { 570 570 - trace(""f""); 571 571 - } 572 572 - 573 573 - trace(""g""); 574 574 - L1: try { 575 575 - trace(""b""); 576 576 - } finally { 577 577 - trace(""r""); 578 578 - } 579 579 - } finally { 580 580 - trace(""v""); 581 581 - } 582 582 - 583 583 - return t; 584 584 - } 585 585 - "); 586 586 - _expectCil(); 587 587 - Expect("ktfbrv", true); 588 588 - } 589 589 - 590 590 - [Test] 591 591 - public void ReturnFromFinally() 592 592 - { 593 593 - Compile( 594 594 - @" 595 595 - var t = """"; 596 596 - function trace(x) = t+=x; 597 597 - 598 598 - function main(x) //[store_debug_implementation enabled;] 599 599 - { 600 600 - try { 601 601 - trace(""k""); 602 602 - } finally { 603 603 - trace(""f""); 604 604 - return t; 605 605 - trace(""v""); 606 606 - } 607 607 - 608 608 - return t; 609 609 - } 610 610 - "); 611 611 - _expectSehDeficiency(); 612 612 - Expect("kf", true); 613 613 - } 614 614 - 615 615 - private void _expectSehDeficiency(string name = "main") 616 616 - { 617 617 - _expectSehDeficiency(target.Functions[name]); 618 618 - } 619 619 - 620 620 - private static void _expectSehDeficiency(PFunction function) 621 621 - { 622 622 - Assert.IsNotNull(function, "function not found"); 623 623 - Assert.IsTrue(function.Meta[PFunction.VolatileKey].Switch, 624 624 - "Function is expected to be volatile."); 625 625 - Assert.IsTrue(function.Meta[PFunction.DeficiencyKey].Text.Contains("SEH"), 626 626 - "CIL deficiency is expected to be related to SEH."); 627 627 - } 628 628 - 629 629 - [Test] 630 630 - public void MinimalTryCatch() 631 631 - { 632 632 - Compile( 633 633 - @" 634 634 - var t; 635 635 - function trace(x) = t+=x~String; 636 636 - function main(x) [store_debug_implementation enabled;] 637 637 - { 638 638 - try {trace(1);} 639 639 - finally{trace(2);} 640 640 - return t; 641 641 - }"); 642 642 - 643 643 - Expect("12", true); 644 644 - } 645 645 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System.Collections.Generic; 27 27 + using System.Linq; 28 28 + using NUnit.Framework; 29 29 + using Prexonite; 30 30 + using Prexonite.Compiler; 31 31 + using Prexonite.Compiler.Cil; 32 32 + 33 33 + namespace PrexoniteTests.Tests 34 34 + { 35 35 + [TestFixture] 36 36 + public class CilCompilerTests : VMTestsBase 37 37 + { 38 38 + [Test] 39 39 + public void SetCilHintTest() 40 40 + { 41 41 + Compile(@" 42 42 + function main() { 43 43 + foreach(var x in var args) 44 44 + println(x); 45 45 + }"); 46 46 + 47 47 + var main = target.Functions["main"]; 48 48 + 49 49 + var cilExt1 = new CilExtensionHint(new List<int> {1, 5, 9}); 50 50 + var existingHints = _getCilHints(main, true); 51 51 + Assert.AreEqual(1, existingHints.Length); 52 52 + 53 53 + //Add, none existing 54 54 + Compiler.SetCilHint(main, cilExt1); 55 55 + var hints1 = _getCilHints(main, true); 56 56 + Assert.AreNotSame(existingHints, hints1); 57 57 + Assert.AreEqual(2, hints1.Length); 58 58 + Assert.IsTrue(hints1[1].IsList); 59 59 + var cilExt1P = CilExtensionHint.FromMetaEntry(hints1[1].List); 60 60 + Assert.IsTrue( 61 61 + cilExt1P.Offsets.All(offset => cilExt1.Offsets.Contains(offset)), 62 62 + "deserialized contains elements not in original"); 63 63 + Assert.IsTrue(cilExt1.Offsets.All(offset => cilExt1P.Offsets.Contains(offset)), 64 64 + "original contains elements not in deserialized"); 65 65 + 66 66 + //Add, one existing 67 67 + var cilExt2 = new CilExtensionHint(new List<int> {2, 4, 8, 16}); 68 68 + Compiler.SetCilHint(main, cilExt2); 69 69 + var hints2 = _getCilHints(main, true); 70 70 + Assert.AreSame(hints1, hints2); 71 71 + Assert.AreEqual(2, hints2.Length); 72 72 + Assert.IsTrue(hints2[1].IsList); 73 73 + var cilExt2P = CilExtensionHint.FromMetaEntry(hints2[1].List); 74 74 + Assert.IsTrue( 75 75 + cilExt2P.Offsets.All(offset => cilExt2.Offsets.Contains(offset)), 76 76 + "deserialized contains elements not in original"); 77 77 + Assert.IsTrue(cilExt2.Offsets.All(offset => cilExt2P.Offsets.Contains(offset)), 78 78 + "original contains elements not in deserialized"); 79 79 + 80 80 + //Add, many existing 81 81 + var cilExts = new List<CilExtensionHint> 82 82 + { 83 83 + new CilExtensionHint(new List<int> {1, 6, 16, 66}), 84 84 + new CilExtensionHint(new List<int> {7, 77, 777}), 85 85 + new CilExtensionHint(new List<int> {9, 88, 777, 6666}), 86 86 + }; 87 87 + foreach (var cilExt in cilExts) 88 88 + Compiler.AddCilHint(main, cilExt); 89 89 + var hints3 = _getCilHints(main, true); 90 90 + Assert.AreNotSame(hints2, hints3); 91 91 + Assert.AreEqual(5, hints3.Length); 92 92 + var cilExt3 = new CilExtensionHint(new List<int> {44, 55, 66, 77, 88}); 93 93 + Compiler.SetCilHint(main, cilExt3); 94 94 + var hints4 = _getCilHints(main, true); 95 95 + Assert.AreNotSame(hints3, hints4); 96 96 + Assert.AreEqual(2, hints4.Length); 97 97 + Assert.IsTrue(hints4[1].IsList); 98 98 + var cilExt3P = CilExtensionHint.FromMetaEntry(hints4[1].List); 99 99 + Assert.IsTrue( 100 100 + cilExt3P.Offsets.All(offset => cilExt3.Offsets.Contains(offset)), 101 101 + "deserialized contains elements not in original"); 102 102 + Assert.IsTrue(cilExt3.Offsets.All(offset => cilExt3P.Offsets.Contains(offset)), 103 103 + "original contains elements not in deserialized"); 104 104 + 105 105 + 106 106 + //Add, no cil hints key yet 107 107 + var emptyFunc = target.CreateFunction(); 108 108 + emptyFunc.Meta[PFunction.IdKey] = "empty"; 109 109 + Compiler.SetCilHint(main, cilExt3); 110 110 + var hints5 = _getCilHints(main, true); 111 111 + Assert.AreEqual(2, hints5.Length); 112 112 + Assert.IsTrue(hints5[0].IsList); 113 113 + var cilExt4P = CilExtensionHint.FromMetaEntry(hints5[1].List); 114 114 + Assert.IsTrue( 115 115 + cilExt4P.Offsets.All(offset => cilExt3.Offsets.Contains(offset)), 116 116 + "deserialized contains elements not in original"); 117 117 + Assert.IsTrue(cilExt3.Offsets.All(offset => cilExt4P.Offsets.Contains(offset)), 118 118 + "original contains elements not in deserialized"); 119 119 + } 120 120 + 121 121 + private static MetaEntry[] _getCilHints(IHasMetaTable table, bool keyMustExist) 122 122 + { 123 123 + MetaEntry cilHintsEntry; 124 124 + if (table.Meta.TryGetValue(Loader.CilHintsKey, out cilHintsEntry)) 125 125 + { 126 126 + Assert.IsTrue(cilHintsEntry.IsList, "CIL hints entry must be a list."); 127 127 + return cilHintsEntry.List; 128 128 + } 129 129 + else if (keyMustExist) 130 130 + { 131 131 + Assert.Fail("Meta table of {0} does not contain cil hints.", table); 132 132 + return null; 133 133 + } 134 134 + else 135 135 + { 136 136 + table.Meta[Loader.CilHintsKey] = (MetaEntry) new MetaEntry[0]; 137 137 + return _getCilHints(table, true); 138 138 + } 139 139 + } 140 140 + 141 141 + [Test] 142 142 + public void UnbindCommandTest() 143 143 + { 144 144 + Compile( 145 145 + @" 146 146 + function main() 147 147 + { 148 148 + var result = []; 149 149 + var x = 1; 150 150 + ref y = ->x; 151 151 + result[] = x == 1; 152 152 + result[] = ->x == ->y; 153 153 + new var x; 154 154 + result[] = x == 1; 155 155 + result[] = not System::Object.ReferenceEquals(->x, ->y); 156 156 + 157 157 + result[] = var x == new var x; 158 158 + result[] = x == 1; 159 159 + result[] = not System::Object.ReferenceEquals(->x, ->y); 160 160 + 161 161 + //behave like ordinary command 162 162 + result[] = unbind(->x) is null; 163 163 + result[] = x == 1; 164 164 + result[] = not System::Object.ReferenceEquals(->x, ->y); 165 165 + 166 166 + return result; 167 167 + } 168 168 + "); 169 169 + _expectCil(); 170 170 + Expect(Enumerable.Range(1, 10).Select(_ => (PValue) true).ToList()); 171 171 + } 172 172 + 173 173 + 174 174 + [Test] 175 175 + public void JumpBreaksCilExtensions() 176 176 + { 177 177 + Compile( 178 178 + @" 179 179 + function main(b) 180 180 + {asm{ 181 181 + ldloc b 182 182 + ldc.int 4 183 183 + cmd.2 (==) 184 184 + jump.f L_else 185 185 + label L_if ldc.string ""IF"" 186 186 + jump L_endif 187 187 + label L_else ldc.string ""ELSE"" 188 188 + label L_endif ldc.string ""-branch"" 189 189 + cmd.2 (+) 190 190 + ret 191 191 + }} 192 192 + "); 193 193 + Assert.AreEqual(1, _getCilHints(target.Functions["main"], true).Length); 194 194 + _expectCil(); 195 195 + Expect("IF-branch", 4); 196 196 + Expect("ELSE-branch", 3); 197 197 + Expect("ELSE-branch", 5); 198 198 + } 199 199 + 200 200 + [Test] 201 201 + public void TryCatchFinallyCompiles() 202 202 + { 203 203 + Compile( 204 204 + @" 205 205 + var t = """"; 206 206 + function trace(x) = t+=x; 207 207 + 208 208 + function main() 209 209 + { 210 210 + try { 211 211 + trace(""t""); 212 212 + throw ""e""; 213 213 + }catch(var exc){ 214 214 + trace(""c""); 215 215 + trace(exc.Message); 216 216 + }finally{ 217 217 + trace(""f""); 218 218 + } 219 219 + 220 220 + return t; 221 221 + } 222 222 + "); 223 223 + _expectCil(); 224 224 + Expect("tfce"); 225 225 + } 226 226 + 227 227 + private void _expectCil(string functionId = "main") 228 228 + { 229 229 + var func = target.Functions[functionId]; 230 230 + Assert.IsNotNull(func, "Function " + functionId + " must exist"); 231 231 + Assert.IsFalse(func.Meta[PFunction.VolatileKey].Switch, 232 232 + functionId + " must not be volatile."); 233 233 + } 234 234 + 235 235 + [Test] 236 236 + public void TryFinallyCondCompiles() 237 237 + { 238 238 + Assert.Throws<PrexoniteRuntimeException>(() => 239 239 + { 240 240 + Compile( 241 241 + @" 242 242 + var t = """"; 243 243 + function trace(x) = t+=x; 244 244 + 245 245 + function main(x) 246 246 + { 247 247 + try { 248 248 + trace(""t""); 249 249 + if(x) 250 250 + throw ""e""; 251 251 + }finally{ 252 252 + trace(""f""); 253 253 + } 254 254 + 255 255 + return t; 256 256 + } 257 257 + "); 258 258 + _expectCil(); 259 259 + Expect("tf", true); 260 260 + }); 261 261 + } 262 262 + 263 263 + [Test] 264 264 + public void TryCatchCondCompiles() 265 265 + { 266 266 + Compile( 267 267 + @" 268 268 + var t = """"; 269 269 + function trace(x) = t+=x; 270 270 + 271 271 + function main(x) 272 272 + { 273 273 + try { 274 274 + trace(""t""); 275 275 + if(x) 276 276 + throw ""e""; 277 277 + }catch(var exc){ 278 278 + trace(""c""); 279 279 + trace(exc.Message); 280 280 + } 281 281 + 282 282 + return t; 283 283 + } 284 284 + "); 285 285 + _expectCil(); 286 286 + Expect("tce", true); 287 287 + } 288 288 + 289 289 + [Test] 290 290 + public void CatchInFinally1() 291 291 + { 292 292 + Compile( 293 293 + @" 294 294 + var t = """"; 295 295 + function trace(x) = t+=x; 296 296 + 297 297 + function main(x) 298 298 + { 299 299 + try { 300 300 + try { 301 301 + trace(""t""); 302 302 + if(x) 303 303 + throw ""e""; 304 304 + }catch(var exc){ 305 305 + trace(""c""); 306 306 + trace(exc.Message); 307 307 + } 308 308 + } finally { 309 309 + trace(""f""); 310 310 + } 311 311 + 312 312 + return t; 313 313 + } 314 314 + "); 315 315 + _expectCil(); 316 316 + Expect("tcef", true); 317 317 + } 318 318 + 319 319 + [Test] 320 320 + public void CatchInFinally2() 321 321 + { 322 322 + Compile( 323 323 + @" 324 324 + var t = """"; 325 325 + function trace(x) = t+=x; 326 326 + 327 327 + function main(x) 328 328 + { 329 329 + try { 330 330 + try { 331 331 + trace(""t""); 332 332 + throw ""e""; 333 333 + }catch(var exc){ 334 334 + if(x) 335 335 + trace(""x""); 336 336 + } 337 337 + } finally { 338 338 + trace(""f""); 339 339 + } 340 340 + 341 341 + return t; 342 342 + } 343 343 + "); 344 344 + 345 345 + _expectCil(); 346 346 + Expect("txf", true); 347 347 + } 348 348 + 349 349 + [Test] 350 350 + public void CatchInFinally3() 351 351 + { 352 352 + Compile( 353 353 + @" 354 354 + var t = """"; 355 355 + function trace(x) = t+=x; 356 356 + 357 357 + function main(x) 358 358 + { 359 359 + try { 360 360 + try { 361 361 + trace(""t""); 362 362 + throw ""e""; 363 363 + }catch(var exc){ 364 364 + if(x) 365 365 + trace(""x""); 366 366 + } 367 367 + } catch(var exc){ 368 368 + trace(""e""); 369 369 + } finally { 370 370 + trace(""f""); 371 371 + } 372 372 + 373 373 + return t; 374 374 + } 375 375 + "); 376 376 + _expectCil(); 377 377 + Expect("txf", true); 378 378 + } 379 379 + 380 380 + [Test] 381 381 + public void CatchInFinally4() 382 382 + { 383 383 + Compile( 384 384 + @" 385 385 + var t = """"; 386 386 + function trace(x) = t+=x; 387 387 + 388 388 + function main(x) [store_debug_implementation enabled;] 389 389 + { 390 390 + for(var i = 1; i < 6; i++) 391 391 + try 392 392 + { 393 393 + try 394 394 + { 395 395 + throw i; 396 396 + } 397 397 + catch(var exc) 398 398 + { 399 399 + if(x) 400 400 + throw exc; 401 401 + } 402 402 + } 403 403 + catch(var exc) 404 404 + { 405 405 + trace(""e""); 406 406 + } 407 407 + finally 408 408 + { 409 409 + trace(""f""); 410 410 + } 411 411 + return t; 412 412 + } 413 413 + "); 414 414 + _expectCil(); 415 415 + Expect("fefefefefe", true); 416 416 + } 417 417 + 418 418 + [Test] 419 419 + public void CatchInFinally5() 420 420 + { 421 421 + Compile( 422 422 + @" 423 423 + var t = """"; 424 424 + function trace(x) = t+=x; 425 425 + 426 426 + function main(x,y) [store_debug_implementation enabled;] 427 427 + { 428 428 + try 429 429 + { 430 430 + try 431 431 + { 432 432 + throw ""i""; //this must be a throw; won't work with trace 433 433 + } 434 434 + catch(var exc) 435 435 + { 436 436 + if(not x) //needs to be false (it's a runtime error after all) 437 437 + throw exc; 438 438 + } 439 439 + } //must be a nested block 440 440 + finally 441 441 + { 442 442 + trace(""f""); 443 443 + } 444 444 + return t; 445 445 + } 446 446 + "); 447 447 + _expectCil(); 448 448 + Expect("f", true, true); 449 449 + } 450 450 + 451 451 + [Test] 452 452 + public void TryCatchFinallyCondCompiles() 453 453 + { 454 454 + Compile( 455 455 + @" 456 456 + var t = """"; 457 457 + function trace(x) = t+=x; 458 458 + 459 459 + function main(x) //[store_debug_implementation enabled;] 460 460 + { 461 461 + try { 462 462 + trace(""t""); 463 463 + if(x) 464 464 + throw ""e""; 465 465 + }catch(var exc){ 466 466 + trace(""c""); 467 467 + trace(exc.Message); 468 468 + }finally{ 469 469 + trace(""f""); 470 470 + } 471 471 + 472 472 + return t; 473 473 + } 474 474 + "); 475 475 + _expectCil(); 476 476 + Expect("tfce", true); 477 477 + } 478 478 + 479 479 + [Test] 480 480 + public void LabelOnFirstNeLabelOnTry() 481 481 + { 482 482 + Assert.Throws<PrexoniteRuntimeException>(() => 483 483 + { 484 484 + Compile( 485 485 + @" 486 486 + var t = """"; 487 487 + function trace(x) = t+=x; 488 488 + 489 489 + function main(x) //[store_debug_implementation enabled;] 490 490 + { 491 491 + try { 492 492 + trace(""t""); 493 493 + goto L1; 494 494 + trace(""z""); 495 495 + } finally { 496 496 + trace(""f""); 497 497 + } 498 498 + 499 499 + try { 500 500 + trace(""g""); 501 501 + try { 502 502 + L1: trace(""b""); 503 503 + } finally { 504 504 + trace(""r""); 505 505 + } 506 506 + } finally { 507 507 + trace(""v""); 508 508 + } 509 509 + 510 510 + return t; 511 511 + } 512 512 + "); 513 513 + _expectSehDeficiency(); 514 514 + Expect("undefined", true); 515 515 + }, @"Unexpected leave instruction. This happens when jumping to an instruction in a try block from the outside."); 516 516 + } 517 517 + 518 518 + [Test] 519 519 + public void TryFinallyShadowingNoBridge() 520 520 + { 521 521 + Compile( 522 522 + @" 523 523 + var t = """"; 524 524 + function trace(x) = t+=x; 525 525 + 526 526 + //This tets is expected not to compile to CIL 527 527 + function main(x) //[store_debug_implementation enabled;] 528 528 + { 529 529 + try { 530 530 + trace(""t""); 531 531 + goto L1; 532 532 + trace(""z""); 533 533 + } finally { 534 534 + trace(""f""); 535 535 + } 536 536 + 537 537 + try { 538 538 + trace(""g""); 539 539 + L1: try { 540 540 + trace(""b""); 541 541 + } finally { 542 542 + trace(""r""); 543 543 + } 544 544 + } finally { 545 545 + trace(""v""); 546 546 + } 547 547 + 548 548 + return t; 549 549 + } 550 550 + "); 551 551 + _expectSehDeficiency(); 552 552 + Expect("tbrv", true); 553 553 + } 554 554 + 555 555 + [Test] 556 556 + public void TryFinallyShadowingBridge() 557 557 + { 558 558 + Compile( 559 559 + @" 560 560 + var t = """"; 561 561 + function trace(x) = t+=x; 562 562 + 563 563 + function main(x) //[store_debug_implementation enabled;] 564 564 + { 565 565 + try { 566 566 + trace(""k""); 567 567 + try { 568 568 + trace(""t""); 569 569 + goto L1; 570 570 + trace(""z""); 571 571 + } finally { 572 572 + trace(""f""); 573 573 + } 574 574 + 575 575 + trace(""g""); 576 576 + L1: try { 577 577 + trace(""b""); 578 578 + } finally { 579 579 + trace(""r""); 580 580 + } 581 581 + } finally { 582 582 + trace(""v""); 583 583 + } 584 584 + 585 585 + return t; 586 586 + } 587 587 + "); 588 588 + _expectCil(); 589 589 + Expect("ktfbrv", true); 590 590 + } 591 591 + 592 592 + [Test] 593 593 + public void ReturnFromFinally() 594 594 + { 595 595 + Compile( 596 596 + @" 597 597 + var t = """"; 598 598 + function trace(x) = t+=x; 599 599 + 600 600 + function main(x) //[store_debug_implementation enabled;] 601 601 + { 602 602 + try { 603 603 + trace(""k""); 604 604 + } finally { 605 605 + trace(""f""); 606 606 + return t; 607 607 + trace(""v""); 608 608 + } 609 609 + 610 610 + return t; 611 611 + } 612 612 + "); 613 613 + _expectSehDeficiency(); 614 614 + Expect("kf", true); 615 615 + } 616 616 + 617 617 + private void _expectSehDeficiency(string name = "main") 618 618 + { 619 619 + _expectSehDeficiency(target.Functions[name]); 620 620 + } 621 621 + 622 622 + private static void _expectSehDeficiency(PFunction function) 623 623 + { 624 624 + Assert.IsNotNull(function, "function not found"); 625 625 + Assert.IsTrue(function.Meta[PFunction.VolatileKey].Switch, 626 626 + "Function is expected to be volatile."); 627 627 + Assert.IsTrue(function.Meta[PFunction.DeficiencyKey].Text.Contains("SEH"), 628 628 + "CIL deficiency is expected to be related to SEH."); 629 629 + } 630 630 + 631 631 + [Test] 632 632 + public void MinimalTryCatch() 633 633 + { 634 634 + Compile( 635 635 + @" 636 636 + var t; 637 637 + function trace(x) = t+=x~String; 638 638 + function main(x) [store_debug_implementation enabled;] 639 639 + { 640 640 + try {trace(1);} 641 641 + finally{trace(2);} 642 642 + return t; 643 643 + }"); 644 644 + 645 645 + Expect("12", true); 646 646 + } 647 647 + } 646 648 }

+559 -559

PrexoniteTests/Tests/Configurations/PsrUnitTests.cs

Reviewed

··· 1 1 -  2 2 - // ReSharper disable RedundantUsingDirective 3 3 - using System; 4 4 - using System.Reflection; 5 5 - using System.Collections.Generic; 6 6 - using Prexonite.Types; 7 7 - using Prexonite.Compiler.Cil; 8 8 - using NUnit.Framework; 9 9 - // ReSharper restore RedundantUsingDirective 10 10 - 11 11 - // ReSharper disable RedundantExplicitArrayCreation 12 12 - // ReSharper disable InconsistentNaming 13 13 - // ReSharper disable RedundantCommaInArrayInitializer 14 14 - 15 15 - namespace PrexoniteTests.Tests.Configurations 16 16 - { 17 17 - internal abstract class Unit_ast : ScriptedUnitTestContainer 18 18 - { 19 19 - [TestFixtureSetUp] 20 20 - public void SetupTestFile() 21 21 - { 22 22 - var model = new TestModel 23 23 - { 24 24 - TestSuiteScript = @".\ast.test.pxs", 25 25 - UnitsUnderTest = new TestDependency[]{ 26 26 - new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 27 27 - }}, 28 28 - 29 29 - }, 30 30 - TestDependencies = new TestDependency[]{ 31 31 - 32 32 - } 33 33 - }; 34 34 - Initialize(); 35 35 - Runner.Configure(model, this); 36 36 - } 37 37 - 38 38 - [Test] 39 39 - public void compiler_is_loaded() 40 40 - { 41 41 - RunUnitTest(@"compiler_is_loaded"); 42 42 - } 43 43 - [Test] 44 44 - public void test_ast_withpos_null() 45 45 - { 46 46 - RunUnitTest(@"test_ast_withpos_null"); 47 47 - } 48 48 - [Test] 49 49 - public void test_ast_withpos_memcall() 50 50 - { 51 51 - RunUnitTest(@"test_ast_withpos_memcall"); 52 52 - } 53 53 - [Test] 54 54 - public void test_ast_simple_memcall() 55 55 - { 56 56 - RunUnitTest(@"test_ast_simple_memcall"); 57 57 - } 58 58 - [Test] 59 59 - public void test_ast_memcall() 60 60 - { 61 61 - RunUnitTest(@"test_ast_memcall"); 62 62 - } 63 63 - [Test] 64 64 - public void test_unique_id_counter() 65 65 - { 66 66 - RunUnitTest(@"test_unique_id_counter"); 67 67 - } 68 68 - [Test] 69 69 - public void test_is_member_access() 70 70 - { 71 71 - RunUnitTest(@"test_is_member_access"); 72 72 - } 73 73 - [Test] 74 74 - public void test_local_meta() 75 75 - { 76 76 - RunUnitTest(@"test_local_meta"); 77 77 - } 78 78 - [Test] 79 79 - public void test_si_fields() 80 80 - { 81 81 - RunUnitTest(@"test_si_fields"); 82 82 - } 83 83 - [Test] 84 84 - public void test_si_is_star() 85 85 - { 86 86 - RunUnitTest(@"test_si_is_star"); 87 87 - } 88 88 - [Test] 89 89 - public void test_si_make_star() 90 90 - { 91 91 - RunUnitTest(@"test_si_make_star"); 92 92 - } 93 93 - [Test] 94 94 - public void test_si_m_is_star() 95 95 - { 96 96 - RunUnitTest(@"test_si_m_is_star"); 97 97 - } 98 98 - [Test] 99 99 - public void test_sub_blocks() 100 100 - { 101 101 - RunUnitTest(@"test_sub_blocks"); 102 102 - } 103 103 - } 104 104 - internal abstract class Unit_lang_ext : ScriptedUnitTestContainer 105 105 - { 106 106 - [TestFixtureSetUp] 107 107 - public void SetupTestFile() 108 108 - { 109 109 - var model = new TestModel 110 110 - { 111 111 - TestSuiteScript = @".\lang-ext.test.pxs", 112 112 - UnitsUnderTest = new TestDependency[]{ 113 113 - new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 114 114 - }}, 115 115 - new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 116 116 - @"psr\impl\ast.pxs", 117 117 - }}, 118 118 - new TestDependency { ScriptName = @"psr\impl\struct.pxs", Dependencies = new string[] { 119 119 - @"psr\impl\ast.pxs", 120 120 - @"psr\impl\macro.pxs", 121 121 - }}, 122 122 - new TestDependency { ScriptName = @"psr\impl\pattern.pxs", Dependencies = new string[] { 123 123 - @"psr\impl\ast.pxs", 124 124 - @"psr\impl\macro.pxs", 125 125 - @"psr\impl\struct.pxs", 126 126 - }}, 127 127 - new TestDependency { ScriptName = @"psr\impl\prop.pxs", Dependencies = new string[] { 128 128 - @"psr\impl\ast.pxs", 129 129 - @"psr\impl\macro.pxs", 130 130 - }}, 131 131 - 132 132 - }, 133 133 - TestDependencies = new TestDependency[]{ 134 134 - new TestDependency { ScriptName = @"psr\test\meta_macro.pxs", Dependencies = new string[] { 135 135 - PrexoniteUnitTestFramework 136 136 - }}, 137 137 - 138 138 - } 139 139 - }; 140 140 - Initialize(); 141 141 - Runner.Configure(model, this); 142 142 - } 143 143 - 144 144 - [Test] 145 145 - public void test_con() 146 146 - { 147 147 - RunUnitTest(@"test_con"); 148 148 - } 149 149 - [Test] 150 150 - public void test_dcon() 151 151 - { 152 152 - RunUnitTest(@"test_dcon"); 153 153 - } 154 154 - [Test] 155 155 - public void test_prop_simple() 156 156 - { 157 157 - RunUnitTest(@"test_prop_simple"); 158 158 - } 159 159 - [Test] 160 160 - public void test_prop_proxy() 161 161 - { 162 162 - RunUnitTest(@"test_prop_proxy"); 163 163 - } 164 164 - [Test] 165 165 - public void test_prop_complex() 166 166 - { 167 167 - RunUnitTest(@"test_prop_complex"); 168 168 - } 169 169 - [Test] 170 170 - public void test_prop_simple_glob() 171 171 - { 172 172 - RunUnitTest(@"test_prop_simple_glob"); 173 173 - } 174 174 - } 175 175 - internal abstract class Unit_macro : ScriptedUnitTestContainer 176 176 - { 177 177 - [TestFixtureSetUp] 178 178 - public void SetupTestFile() 179 179 - { 180 180 - var model = new TestModel 181 181 - { 182 182 - TestSuiteScript = @".\macro.test.pxs", 183 183 - UnitsUnderTest = new TestDependency[]{ 184 184 - new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 185 185 - }}, 186 186 - new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 187 187 - @"psr\impl\ast.pxs", 188 188 - }}, 189 189 - 190 190 - }, 191 191 - TestDependencies = new TestDependency[]{ 192 192 - new TestDependency { ScriptName = @"psr\test\meta_macro.pxs", Dependencies = new string[] { 193 193 - PrexoniteUnitTestFramework 194 194 - }}, 195 195 - 196 196 - } 197 197 - }; 198 198 - Initialize(); 199 199 - Runner.Configure(model, this); 200 200 - } 201 201 - 202 202 - [Test] 203 203 - public void test_file() 204 204 - { 205 205 - RunUnitTest(@"test_file"); 206 206 - } 207 207 - [Test] 208 208 - public void test_pos() 209 209 - { 210 210 - RunUnitTest(@"test_pos"); 211 211 - } 212 212 - [Test] 213 213 - public void test_is_in_macro() 214 214 - { 215 215 - RunUnitTest(@"test_is_in_macro"); 216 216 - } 217 217 - [Test] 218 218 - public void test_establish_macro_context() 219 219 - { 220 220 - RunUnitTest(@"test_establish_macro_context"); 221 221 - } 222 222 - [Test] 223 223 - public void test_reports() 224 224 - { 225 225 - RunUnitTest(@"test_reports"); 226 226 - } 227 227 - [Test] 228 228 - public void test_ast_is_expression() 229 229 - { 230 230 - RunUnitTest(@"test_ast_is_expression"); 231 231 - } 232 232 - [Test] 233 233 - public void test_ast_is_effect() 234 234 - { 235 235 - RunUnitTest(@"test_ast_is_effect"); 236 236 - } 237 237 - [Test] 238 238 - public void test_ast_is_partially_applicable() 239 239 - { 240 240 - RunUnitTest(@"test_ast_is_partially_applicable"); 241 241 - } 242 242 - [Test] 243 243 - public void test_ast_is_partial_application() 244 244 - { 245 245 - RunUnitTest(@"test_ast_is_partial_application"); 246 246 - } 247 247 - [Test] 248 248 - public void test_ast_is_CreateClosure() 249 249 - { 250 250 - RunUnitTest(@"test_ast_is_CreateClosure"); 251 251 - } 252 252 - [Test] 253 253 - public void test_ast_is_node() 254 254 - { 255 255 - RunUnitTest(@"test_ast_is_node"); 256 256 - } 257 257 - [Test] 258 258 - public void test_temp() 259 259 - { 260 260 - RunUnitTest(@"test_temp"); 261 261 - } 262 262 - [Test] 263 263 - public void test_optimize() 264 264 - { 265 265 - RunUnitTest(@"test_optimize"); 266 266 - } 267 267 - [Test] 268 268 - public void test_read() 269 269 - { 270 270 - RunUnitTest(@"test_read"); 271 271 - } 272 272 - [Test] 273 273 - public void test_macro_internal_id_static() 274 274 - { 275 275 - RunUnitTest(@"test_macro_internal_id_static"); 276 276 - } 277 277 - [Test] 278 278 - public void test_macro_internal_id() 279 279 - { 280 280 - RunUnitTest(@"test_macro_internal_id"); 281 281 - } 282 282 - [Test] 283 283 - public void test_macro_entity_static() 284 284 - { 285 285 - RunUnitTest(@"test_macro_entity_static"); 286 286 - } 287 287 - [Test] 288 288 - public void test_expand_macro() 289 289 - { 290 290 - RunUnitTest(@"test_expand_macro"); 291 291 - } 292 292 - [Test] 293 293 - public void test_ast_symbol() 294 294 - { 295 295 - RunUnitTest(@"test_ast_symbol"); 296 296 - } 297 297 - [Test] 298 298 - public void test_ast_member() 299 299 - { 300 300 - RunUnitTest(@"test_ast_member"); 301 301 - } 302 302 - [Test] 303 303 - public void test_ast_const() 304 304 - { 305 305 - RunUnitTest(@"test_ast_const"); 306 306 - } 307 307 - [Test] 308 308 - public void test_ast_ret() 309 309 - { 310 310 - RunUnitTest(@"test_ast_ret"); 311 311 - } 312 312 - [Test] 313 313 - public void test_ast_with_arguments() 314 314 - { 315 315 - RunUnitTest(@"test_ast\with_arguments"); 316 316 - } 317 317 - [Test] 318 318 - public void test_ast_new() 319 319 - { 320 320 - RunUnitTest(@"test_ast\new"); 321 321 - } 322 322 - [Test] 323 323 - public void test_ast_null() 324 324 - { 325 325 - RunUnitTest(@"test_ast\null"); 326 326 - } 327 327 - } 328 328 - internal abstract class Unit_misc : ScriptedUnitTestContainer 329 329 - { 330 330 - [TestFixtureSetUp] 331 331 - public void SetupTestFile() 332 332 - { 333 333 - var model = new TestModel 334 334 - { 335 335 - TestSuiteScript = @".\misc.test.pxs", 336 336 - UnitsUnderTest = new TestDependency[]{ 337 337 - new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 338 338 - }}, 339 339 - new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 340 340 - @"psr\impl\ast.pxs", 341 341 - }}, 342 342 - new TestDependency { ScriptName = @"psr\impl\struct.pxs", Dependencies = new string[] { 343 343 - @"psr\impl\ast.pxs", 344 344 - @"psr\impl\macro.pxs", 345 345 - }}, 346 346 - new TestDependency { ScriptName = @"psr\impl\misc.pxs", Dependencies = new string[] { 347 347 - @"psr\impl\struct.pxs", 348 348 - @"psr\impl\ast.pxs", 349 349 - @"psr\impl\macro.pxs", 350 350 - }}, 351 351 - 352 352 - }, 353 353 - TestDependencies = new TestDependency[]{ 354 354 - 355 355 - } 356 356 - }; 357 357 - Initialize(); 358 358 - Runner.Configure(model, this); 359 359 - } 360 360 - 361 361 - [Test] 362 362 - public void test_cmp() 363 363 - { 364 364 - RunUnitTest(@"test_cmp"); 365 365 - } 366 366 - [Test] 367 367 - public void test_cmp_values() 368 368 - { 369 369 - RunUnitTest(@"test_cmp_values"); 370 370 - } 371 371 - [Test] 372 372 - public void test_cmp_keys() 373 373 - { 374 374 - RunUnitTest(@"test_cmp_keys"); 375 375 - } 376 376 - [Test] 377 377 - public void test_cmp_with() 378 378 - { 379 379 - RunUnitTest(@"test_cmp_with"); 380 380 - } 381 381 - [Test] 382 382 - public void test_cmp_then() 383 383 - { 384 384 - RunUnitTest(@"test_cmp_then"); 385 385 - } 386 386 - [Test] 387 387 - public void test_cmpr() 388 388 - { 389 389 - RunUnitTest(@"test_cmpr"); 390 390 - } 391 391 - [Test] 392 392 - public void test_ieq() 393 393 - { 394 394 - RunUnitTest(@"test_ieq"); 395 395 - } 396 396 - [Test] 397 397 - public void test_ieq_any() 398 398 - { 399 399 - RunUnitTest(@"test_ieq_any"); 400 400 - } 401 401 - [Test] 402 402 - public void test_ieq_all() 403 403 - { 404 404 - RunUnitTest(@"test_ieq_all"); 405 405 - } 406 406 - [Test] 407 407 - public void test_refeq() 408 408 - { 409 409 - RunUnitTest(@"test_refeq"); 410 410 - } 411 411 - [Test] 412 412 - public void test_nrefeq() 413 413 - { 414 414 - RunUnitTest(@"test_nrefeq"); 415 415 - } 416 416 - [Test] 417 417 - public void test_create_terminator() 418 418 - { 419 419 - RunUnitTest(@"test_create_terminator"); 420 420 - } 421 421 - [Test] 422 422 - public void test_swap() 423 423 - { 424 424 - RunUnitTest(@"test_swap"); 425 425 - } 426 426 - } 427 427 - internal abstract class Unit_struct : ScriptedUnitTestContainer 428 428 - { 429 429 - [TestFixtureSetUp] 430 430 - public void SetupTestFile() 431 431 - { 432 432 - var model = new TestModel 433 433 - { 434 434 - TestSuiteScript = @".\struct.test.pxs", 435 435 - UnitsUnderTest = new TestDependency[]{ 436 436 - new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 437 437 - }}, 438 438 - new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 439 439 - @"psr\impl\ast.pxs", 440 440 - }}, 441 441 - new TestDependency { ScriptName = @"psr\impl\struct.pxs", Dependencies = new string[] { 442 442 - @"psr\impl\ast.pxs", 443 443 - @"psr\impl\macro.pxs", 444 444 - }}, 445 445 - new TestDependency { ScriptName = @"psr\impl\set.pxs", Dependencies = new string[] { 446 446 - @"psr\impl\struct.pxs", 447 447 - }}, 448 448 - new TestDependency { ScriptName = @"psr\impl\queue.pxs", Dependencies = new string[] { 449 449 - @"psr\impl\struct.pxs", 450 450 - }}, 451 451 - new TestDependency { ScriptName = @"psr\impl\stack.pxs", Dependencies = new string[] { 452 452 - @"psr\impl\struct.pxs", 453 453 - }}, 454 454 - 455 455 - }, 456 456 - TestDependencies = new TestDependency[]{ 457 457 - 458 458 - } 459 459 - }; 460 460 - Initialize(); 461 461 - Runner.Configure(model, this); 462 462 - } 463 463 - 464 464 - [Test] 465 465 - public void test_struct() 466 466 - { 467 467 - RunUnitTest(@"test_struct"); 468 468 - } 469 469 - [Test] 470 470 - public void tsm_create() 471 471 - { 472 472 - RunUnitTest(@"tsm_create"); 473 473 - } 474 474 - [Test] 475 475 - public void tsm_add_remove() 476 476 - { 477 477 - RunUnitTest(@"tsm_add_remove"); 478 478 - } 479 479 - [Test] 480 480 - public void tsi_create() 481 481 - { 482 482 - RunUnitTest(@"tsi_create"); 483 483 - } 484 484 - [Test] 485 485 - public void tsi_add_remove() 486 486 - { 487 487 - RunUnitTest(@"tsi_add_remove"); 488 488 - } 489 489 - [Test] 490 490 - public void tqm_count() 491 491 - { 492 492 - RunUnitTest(@"tqm_count"); 493 493 - } 494 494 - [Test] 495 495 - public void tqm_peek() 496 496 - { 497 497 - RunUnitTest(@"tqm_peek"); 498 498 - } 499 499 - [Test] 500 500 - public void tqm_dequeue() 501 501 - { 502 502 - RunUnitTest(@"tqm_dequeue"); 503 503 - } 504 504 - [Test] 505 505 - public void tqi_create() 506 506 - { 507 507 - RunUnitTest(@"tqi_create"); 508 508 - } 509 509 - [Test] 510 510 - public void tqi_enqueuedequeue() 511 511 - { 512 512 - RunUnitTest(@"tqi_enqueuedequeue"); 513 513 - } 514 514 - [Test] 515 515 - public void tqi_nonserial() 516 516 - { 517 517 - RunUnitTest(@"tqi_nonserial"); 518 518 - } 519 519 - [Test] 520 520 - public void tm_count() 521 521 - { 522 522 - RunUnitTest(@"tm_count"); 523 523 - } 524 524 - [Test] 525 525 - public void tm_peek() 526 526 - { 527 527 - RunUnitTest(@"tm_peek"); 528 528 - } 529 529 - [Test] 530 530 - public void tm_pop() 531 531 - { 532 532 - RunUnitTest(@"tm_pop"); 533 533 - } 534 534 - [Test] 535 535 - public void tm_enumarte_pops() 536 536 - { 537 537 - RunUnitTest(@"tm_enumarte_pops"); 538 538 - } 539 539 - [Test] 540 540 - public void ti_create() 541 541 - { 542 542 - RunUnitTest(@"ti_create"); 543 543 - } 544 544 - [Test] 545 545 - public void ti_pushpop() 546 546 - { 547 547 - RunUnitTest(@"ti_pushpop"); 548 548 - } 549 549 - [Test] 550 550 - public void ti_nonserial() 551 551 - { 552 552 - RunUnitTest(@"ti_nonserial"); 553 553 - } 554 554 - } 555 555 - } 556 556 - 557 557 - // ReSharper restore RedundantExplicitArrayCreation 558 558 - // ReSharper restore InconsistentNaming 559 559 - 1 1 +  2 2 + // ReSharper disable RedundantUsingDirective 3 3 + using System; 4 4 + using System.Reflection; 5 5 + using System.Collections.Generic; 6 6 + using Prexonite.Types; 7 7 + using Prexonite.Compiler.Cil; 8 8 + using NUnit.Framework; 9 9 + // ReSharper restore RedundantUsingDirective 10 10 + 11 11 + // ReSharper disable RedundantExplicitArrayCreation 12 12 + // ReSharper disable InconsistentNaming 13 13 + // ReSharper disable RedundantCommaInArrayInitializer 14 14 + 15 15 + namespace PrexoniteTests.Tests.Configurations 16 16 + { 17 17 + internal abstract class Unit_ast : ScriptedUnitTestContainer 18 18 + { 19 19 + [OneTimeSetUp] 20 20 + public void SetupTestFile() 21 21 + { 22 22 + var model = new TestModel 23 23 + { 24 24 + TestSuiteScript = @".\ast.test.pxs", 25 25 + UnitsUnderTest = new TestDependency[]{ 26 26 + new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 27 27 + }}, 28 28 + 29 29 + }, 30 30 + TestDependencies = new TestDependency[]{ 31 31 + 32 32 + } 33 33 + }; 34 34 + Initialize(); 35 35 + Runner.Configure(model, this); 36 36 + } 37 37 + 38 38 + [Test] 39 39 + public void compiler_is_loaded() 40 40 + { 41 41 + RunUnitTest(@"compiler_is_loaded"); 42 42 + } 43 43 + [Test] 44 44 + public void test_ast_withpos_null() 45 45 + { 46 46 + RunUnitTest(@"test_ast_withpos_null"); 47 47 + } 48 48 + [Test] 49 49 + public void test_ast_withpos_memcall() 50 50 + { 51 51 + RunUnitTest(@"test_ast_withpos_memcall"); 52 52 + } 53 53 + [Test] 54 54 + public void test_ast_simple_memcall() 55 55 + { 56 56 + RunUnitTest(@"test_ast_simple_memcall"); 57 57 + } 58 58 + [Test] 59 59 + public void test_ast_memcall() 60 60 + { 61 61 + RunUnitTest(@"test_ast_memcall"); 62 62 + } 63 63 + [Test] 64 64 + public void test_unique_id_counter() 65 65 + { 66 66 + RunUnitTest(@"test_unique_id_counter"); 67 67 + } 68 68 + [Test] 69 69 + public void test_is_member_access() 70 70 + { 71 71 + RunUnitTest(@"test_is_member_access"); 72 72 + } 73 73 + [Test] 74 74 + public void test_local_meta() 75 75 + { 76 76 + RunUnitTest(@"test_local_meta"); 77 77 + } 78 78 + [Test] 79 79 + public void test_si_fields() 80 80 + { 81 81 + RunUnitTest(@"test_si_fields"); 82 82 + } 83 83 + [Test] 84 84 + public void test_si_is_star() 85 85 + { 86 86 + RunUnitTest(@"test_si_is_star"); 87 87 + } 88 88 + [Test] 89 89 + public void test_si_make_star() 90 90 + { 91 91 + RunUnitTest(@"test_si_make_star"); 92 92 + } 93 93 + [Test] 94 94 + public void test_si_m_is_star() 95 95 + { 96 96 + RunUnitTest(@"test_si_m_is_star"); 97 97 + } 98 98 + [Test] 99 99 + public void test_sub_blocks() 100 100 + { 101 101 + RunUnitTest(@"test_sub_blocks"); 102 102 + } 103 103 + } 104 104 + internal abstract class Unit_lang_ext : ScriptedUnitTestContainer 105 105 + { 106 106 + [OneTimeSetUp] 107 107 + public void SetupTestFile() 108 108 + { 109 109 + var model = new TestModel 110 110 + { 111 111 + TestSuiteScript = @".\lang-ext.test.pxs", 112 112 + UnitsUnderTest = new TestDependency[]{ 113 113 + new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 114 114 + }}, 115 115 + new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 116 116 + @"psr\impl\ast.pxs", 117 117 + }}, 118 118 + new TestDependency { ScriptName = @"psr\impl\struct.pxs", Dependencies = new string[] { 119 119 + @"psr\impl\ast.pxs", 120 120 + @"psr\impl\macro.pxs", 121 121 + }}, 122 122 + new TestDependency { ScriptName = @"psr\impl\pattern.pxs", Dependencies = new string[] { 123 123 + @"psr\impl\ast.pxs", 124 124 + @"psr\impl\macro.pxs", 125 125 + @"psr\impl\struct.pxs", 126 126 + }}, 127 127 + new TestDependency { ScriptName = @"psr\impl\prop.pxs", Dependencies = new string[] { 128 128 + @"psr\impl\ast.pxs", 129 129 + @"psr\impl\macro.pxs", 130 130 + }}, 131 131 + 132 132 + }, 133 133 + TestDependencies = new TestDependency[]{ 134 134 + new TestDependency { ScriptName = @"psr\test\meta_macro.pxs", Dependencies = new string[] { 135 135 + PrexoniteUnitTestFramework 136 136 + }}, 137 137 + 138 138 + } 139 139 + }; 140 140 + Initialize(); 141 141 + Runner.Configure(model, this); 142 142 + } 143 143 + 144 144 + [Test] 145 145 + public void test_con() 146 146 + { 147 147 + RunUnitTest(@"test_con"); 148 148 + } 149 149 + [Test] 150 150 + public void test_dcon() 151 151 + { 152 152 + RunUnitTest(@"test_dcon"); 153 153 + } 154 154 + [Test] 155 155 + public void test_prop_simple() 156 156 + { 157 157 + RunUnitTest(@"test_prop_simple"); 158 158 + } 159 159 + [Test] 160 160 + public void test_prop_proxy() 161 161 + { 162 162 + RunUnitTest(@"test_prop_proxy"); 163 163 + } 164 164 + [Test] 165 165 + public void test_prop_complex() 166 166 + { 167 167 + RunUnitTest(@"test_prop_complex"); 168 168 + } 169 169 + [Test] 170 170 + public void test_prop_simple_glob() 171 171 + { 172 172 + RunUnitTest(@"test_prop_simple_glob"); 173 173 + } 174 174 + } 175 175 + internal abstract class Unit_macro : ScriptedUnitTestContainer 176 176 + { 177 177 + [OneTimeSetUp] 178 178 + public void SetupTestFile() 179 179 + { 180 180 + var model = new TestModel 181 181 + { 182 182 + TestSuiteScript = @".\macro.test.pxs", 183 183 + UnitsUnderTest = new TestDependency[]{ 184 184 + new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 185 185 + }}, 186 186 + new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 187 187 + @"psr\impl\ast.pxs", 188 188 + }}, 189 189 + 190 190 + }, 191 191 + TestDependencies = new TestDependency[]{ 192 192 + new TestDependency { ScriptName = @"psr\test\meta_macro.pxs", Dependencies = new string[] { 193 193 + PrexoniteUnitTestFramework 194 194 + }}, 195 195 + 196 196 + } 197 197 + }; 198 198 + Initialize(); 199 199 + Runner.Configure(model, this); 200 200 + } 201 201 + 202 202 + [Test] 203 203 + public void test_file() 204 204 + { 205 205 + RunUnitTest(@"test_file"); 206 206 + } 207 207 + [Test] 208 208 + public void test_pos() 209 209 + { 210 210 + RunUnitTest(@"test_pos"); 211 211 + } 212 212 + [Test] 213 213 + public void test_is_in_macro() 214 214 + { 215 215 + RunUnitTest(@"test_is_in_macro"); 216 216 + } 217 217 + [Test] 218 218 + public void test_establish_macro_context() 219 219 + { 220 220 + RunUnitTest(@"test_establish_macro_context"); 221 221 + } 222 222 + [Test] 223 223 + public void test_reports() 224 224 + { 225 225 + RunUnitTest(@"test_reports"); 226 226 + } 227 227 + [Test] 228 228 + public void test_ast_is_expression() 229 229 + { 230 230 + RunUnitTest(@"test_ast_is_expression"); 231 231 + } 232 232 + [Test] 233 233 + public void test_ast_is_effect() 234 234 + { 235 235 + RunUnitTest(@"test_ast_is_effect"); 236 236 + } 237 237 + [Test] 238 238 + public void test_ast_is_partially_applicable() 239 239 + { 240 240 + RunUnitTest(@"test_ast_is_partially_applicable"); 241 241 + } 242 242 + [Test] 243 243 + public void test_ast_is_partial_application() 244 244 + { 245 245 + RunUnitTest(@"test_ast_is_partial_application"); 246 246 + } 247 247 + [Test] 248 248 + public void test_ast_is_CreateClosure() 249 249 + { 250 250 + RunUnitTest(@"test_ast_is_CreateClosure"); 251 251 + } 252 252 + [Test] 253 253 + public void test_ast_is_node() 254 254 + { 255 255 + RunUnitTest(@"test_ast_is_node"); 256 256 + } 257 257 + [Test] 258 258 + public void test_temp() 259 259 + { 260 260 + RunUnitTest(@"test_temp"); 261 261 + } 262 262 + [Test] 263 263 + public void test_optimize() 264 264 + { 265 265 + RunUnitTest(@"test_optimize"); 266 266 + } 267 267 + [Test] 268 268 + public void test_read() 269 269 + { 270 270 + RunUnitTest(@"test_read"); 271 271 + } 272 272 + [Test] 273 273 + public void test_macro_internal_id_static() 274 274 + { 275 275 + RunUnitTest(@"test_macro_internal_id_static"); 276 276 + } 277 277 + [Test] 278 278 + public void test_macro_internal_id() 279 279 + { 280 280 + RunUnitTest(@"test_macro_internal_id"); 281 281 + } 282 282 + [Test] 283 283 + public void test_macro_entity_static() 284 284 + { 285 285 + RunUnitTest(@"test_macro_entity_static"); 286 286 + } 287 287 + [Test] 288 288 + public void test_expand_macro() 289 289 + { 290 290 + RunUnitTest(@"test_expand_macro"); 291 291 + } 292 292 + [Test] 293 293 + public void test_ast_symbol() 294 294 + { 295 295 + RunUnitTest(@"test_ast_symbol"); 296 296 + } 297 297 + [Test] 298 298 + public void test_ast_member() 299 299 + { 300 300 + RunUnitTest(@"test_ast_member"); 301 301 + } 302 302 + [Test] 303 303 + public void test_ast_const() 304 304 + { 305 305 + RunUnitTest(@"test_ast_const"); 306 306 + } 307 307 + [Test] 308 308 + public void test_ast_ret() 309 309 + { 310 310 + RunUnitTest(@"test_ast_ret"); 311 311 + } 312 312 + [Test] 313 313 + public void test_ast_with_arguments() 314 314 + { 315 315 + RunUnitTest(@"test_ast\with_arguments"); 316 316 + } 317 317 + [Test] 318 318 + public void test_ast_new() 319 319 + { 320 320 + RunUnitTest(@"test_ast\new"); 321 321 + } 322 322 + [Test] 323 323 + public void test_ast_null() 324 324 + { 325 325 + RunUnitTest(@"test_ast\null"); 326 326 + } 327 327 + } 328 328 + internal abstract class Unit_misc : ScriptedUnitTestContainer 329 329 + { 330 330 + [OneTimeSetUp] 331 331 + public void SetupTestFile() 332 332 + { 333 333 + var model = new TestModel 334 334 + { 335 335 + TestSuiteScript = @".\misc.test.pxs", 336 336 + UnitsUnderTest = new TestDependency[]{ 337 337 + new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 338 338 + }}, 339 339 + new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 340 340 + @"psr\impl\ast.pxs", 341 341 + }}, 342 342 + new TestDependency { ScriptName = @"psr\impl\struct.pxs", Dependencies = new string[] { 343 343 + @"psr\impl\ast.pxs", 344 344 + @"psr\impl\macro.pxs", 345 345 + }}, 346 346 + new TestDependency { ScriptName = @"psr\impl\misc.pxs", Dependencies = new string[] { 347 347 + @"psr\impl\struct.pxs", 348 348 + @"psr\impl\ast.pxs", 349 349 + @"psr\impl\macro.pxs", 350 350 + }}, 351 351 + 352 352 + }, 353 353 + TestDependencies = new TestDependency[]{ 354 354 + 355 355 + } 356 356 + }; 357 357 + Initialize(); 358 358 + Runner.Configure(model, this); 359 359 + } 360 360 + 361 361 + [Test] 362 362 + public void test_cmp() 363 363 + { 364 364 + RunUnitTest(@"test_cmp"); 365 365 + } 366 366 + [Test] 367 367 + public void test_cmp_values() 368 368 + { 369 369 + RunUnitTest(@"test_cmp_values"); 370 370 + } 371 371 + [Test] 372 372 + public void test_cmp_keys() 373 373 + { 374 374 + RunUnitTest(@"test_cmp_keys"); 375 375 + } 376 376 + [Test] 377 377 + public void test_cmp_with() 378 378 + { 379 379 + RunUnitTest(@"test_cmp_with"); 380 380 + } 381 381 + [Test] 382 382 + public void test_cmp_then() 383 383 + { 384 384 + RunUnitTest(@"test_cmp_then"); 385 385 + } 386 386 + [Test] 387 387 + public void test_cmpr() 388 388 + { 389 389 + RunUnitTest(@"test_cmpr"); 390 390 + } 391 391 + [Test] 392 392 + public void test_ieq() 393 393 + { 394 394 + RunUnitTest(@"test_ieq"); 395 395 + } 396 396 + [Test] 397 397 + public void test_ieq_any() 398 398 + { 399 399 + RunUnitTest(@"test_ieq_any"); 400 400 + } 401 401 + [Test] 402 402 + public void test_ieq_all() 403 403 + { 404 404 + RunUnitTest(@"test_ieq_all"); 405 405 + } 406 406 + [Test] 407 407 + public void test_refeq() 408 408 + { 409 409 + RunUnitTest(@"test_refeq"); 410 410 + } 411 411 + [Test] 412 412 + public void test_nrefeq() 413 413 + { 414 414 + RunUnitTest(@"test_nrefeq"); 415 415 + } 416 416 + [Test] 417 417 + public void test_create_terminator() 418 418 + { 419 419 + RunUnitTest(@"test_create_terminator"); 420 420 + } 421 421 + [Test] 422 422 + public void test_swap() 423 423 + { 424 424 + RunUnitTest(@"test_swap"); 425 425 + } 426 426 + } 427 427 + internal abstract class Unit_struct : ScriptedUnitTestContainer 428 428 + { 429 429 + [OneTimeSetUp] 430 430 + public void SetupTestFile() 431 431 + { 432 432 + var model = new TestModel 433 433 + { 434 434 + TestSuiteScript = @".\struct.test.pxs", 435 435 + UnitsUnderTest = new TestDependency[]{ 436 436 + new TestDependency { ScriptName = @"psr\impl\ast.pxs", Dependencies = new string[] { 437 437 + }}, 438 438 + new TestDependency { ScriptName = @"psr\impl\macro.pxs", Dependencies = new string[] { 439 439 + @"psr\impl\ast.pxs", 440 440 + }}, 441 441 + new TestDependency { ScriptName = @"psr\impl\struct.pxs", Dependencies = new string[] { 442 442 + @"psr\impl\ast.pxs", 443 443 + @"psr\impl\macro.pxs", 444 444 + }}, 445 445 + new TestDependency { ScriptName = @"psr\impl\set.pxs", Dependencies = new string[] { 446 446 + @"psr\impl\struct.pxs", 447 447 + }}, 448 448 + new TestDependency { ScriptName = @"psr\impl\queue.pxs", Dependencies = new string[] { 449 449 + @"psr\impl\struct.pxs", 450 450 + }}, 451 451 + new TestDependency { ScriptName = @"psr\impl\stack.pxs", Dependencies = new string[] { 452 452 + @"psr\impl\struct.pxs", 453 453 + }}, 454 454 + 455 455 + }, 456 456 + TestDependencies = new TestDependency[]{ 457 457 + 458 458 + } 459 459 + }; 460 460 + Initialize(); 461 461 + Runner.Configure(model, this); 462 462 + } 463 463 + 464 464 + [Test] 465 465 + public void test_struct() 466 466 + { 467 467 + RunUnitTest(@"test_struct"); 468 468 + } 469 469 + [Test] 470 470 + public void tsm_create() 471 471 + { 472 472 + RunUnitTest(@"tsm_create"); 473 473 + } 474 474 + [Test] 475 475 + public void tsm_add_remove() 476 476 + { 477 477 + RunUnitTest(@"tsm_add_remove"); 478 478 + } 479 479 + [Test] 480 480 + public void tsi_create() 481 481 + { 482 482 + RunUnitTest(@"tsi_create"); 483 483 + } 484 484 + [Test] 485 485 + public void tsi_add_remove() 486 486 + { 487 487 + RunUnitTest(@"tsi_add_remove"); 488 488 + } 489 489 + [Test] 490 490 + public void tqm_count() 491 491 + { 492 492 + RunUnitTest(@"tqm_count"); 493 493 + } 494 494 + [Test] 495 495 + public void tqm_peek() 496 496 + { 497 497 + RunUnitTest(@"tqm_peek"); 498 498 + } 499 499 + [Test] 500 500 + public void tqm_dequeue() 501 501 + { 502 502 + RunUnitTest(@"tqm_dequeue"); 503 503 + } 504 504 + [Test] 505 505 + public void tqi_create() 506 506 + { 507 507 + RunUnitTest(@"tqi_create"); 508 508 + } 509 509 + [Test] 510 510 + public void tqi_enqueuedequeue() 511 511 + { 512 512 + RunUnitTest(@"tqi_enqueuedequeue"); 513 513 + } 514 514 + [Test] 515 515 + public void tqi_nonserial() 516 516 + { 517 517 + RunUnitTest(@"tqi_nonserial"); 518 518 + } 519 519 + [Test] 520 520 + public void tm_count() 521 521 + { 522 522 + RunUnitTest(@"tm_count"); 523 523 + } 524 524 + [Test] 525 525 + public void tm_peek() 526 526 + { 527 527 + RunUnitTest(@"tm_peek"); 528 528 + } 529 529 + [Test] 530 530 + public void tm_pop() 531 531 + { 532 532 + RunUnitTest(@"tm_pop"); 533 533 + } 534 534 + [Test] 535 535 + public void tm_enumarte_pops() 536 536 + { 537 537 + RunUnitTest(@"tm_enumarte_pops"); 538 538 + } 539 539 + [Test] 540 540 + public void ti_create() 541 541 + { 542 542 + RunUnitTest(@"ti_create"); 543 543 + } 544 544 + [Test] 545 545 + public void ti_pushpop() 546 546 + { 547 547 + RunUnitTest(@"ti_pushpop"); 548 548 + } 549 549 + [Test] 550 550 + public void ti_nonserial() 551 551 + { 552 552 + RunUnitTest(@"ti_nonserial"); 553 553 + } 554 554 + } 555 555 + } 556 556 + 557 557 + // ReSharper restore RedundantExplicitArrayCreation 558 558 + // ReSharper restore InconsistentNaming 559 559 +

+1 -1

PrexoniteTests/Tests/Configurations/PsrUnitTests.tt

Reviewed

··· 24 24 #> 25 25 internal abstract class <#=_toPsrClassName(testFile.TestFileName)#> : ScriptedUnitTestContainer 26 26 { 27 27 - [TestFixtureSetUp] 27 27 + [OneTimeSetUp] 28 28 public void SetupTestFile() 29 29 { 30 30 var model = new TestModel

+163 -162

PrexoniteTests/Tests/Configurations/ScriptedUnitTestContainer.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Collections.Generic; 28 28 - using System.IO; 29 29 - using System.Linq; 30 30 - using System.Threading.Tasks; 31 31 - using JetBrains.Annotations; 32 32 - using NUnit.Framework; 33 33 - using Prexonite; 34 34 - using Prexonite.Compiler; 35 35 - using Prexonite.Compiler.Build; 36 36 - using Prexonite.Compiler.Symbolic; 37 37 - using Prexonite.Modular; 38 38 - using Prexonite.Types; 39 39 - 40 40 - namespace PrexoniteTests.Tests.Configurations 41 41 - { 42 42 - internal abstract class ScriptedUnitTestContainer 43 43 - { 44 44 - public Application Application { get; set; } 45 45 - public Engine Engine { get; set; } 46 46 - public Loader Loader { get; set; } 47 47 - 48 48 - public List<string> Dependencies { get; set; } 49 49 - 50 50 - public StackContext Root { get; set; } 51 51 - 52 52 - public const string ListTestsId = @"test\list_test"; 53 53 - public const string RunTestId = @"test\run_test"; 54 54 - public const string PrexoniteUnitTestFramework = @"psr\test.pxs"; 55 55 - public const string DumpRequestFlag = "request_dump"; 56 56 - 57 57 - protected abstract UnitTestConfiguration Runner { get; } 58 58 - 59 59 - public void Initialize() 60 60 - { 61 61 - Application = new Application(ApplicationName); 62 62 - Engine = new Engine(); 63 63 - Loader = new Loader(Engine, Application); 64 64 - 65 65 - Dependencies = new List<string>(); 66 66 - Root = new NullContext(Engine, Application, new string[0]); 67 67 - 68 68 - var slnPath = Environment.CurrentDirectory; 69 69 - while (Directory.Exists(slnPath) && !File.Exists(Path.Combine(slnPath, "Prexonite.sln"))) 70 70 - slnPath = Path.Combine(slnPath, @".." + Path.DirectorySeparatorChar); 71 71 - 72 72 - if (Directory.Exists(slnPath)) 73 73 - { 74 74 - var psrTestsPath = 75 75 - Path.GetFullPath(Path.Combine(slnPath, @"PrexoniteTests\psr-tests")); 76 76 - Console.WriteLine("inferred psr-tests path: " + psrTestsPath, "Engine.Path"); 77 77 - Engine.Paths.Add(psrTestsPath); 78 78 - 79 79 - var prxPath = Path.GetFullPath(Path.Combine(slnPath, @"Prx")); 80 80 - Console.WriteLine("inferred prx path: " + prxPath, "Engine.Path"); 81 81 - Engine.Paths.Add(prxPath); 82 82 - } 83 83 - else 84 84 - { 85 85 - Console.WriteLine("CANNOT INFER solution PATH: " + slnPath, "Engine.Path"); 86 86 - } 87 87 - } 88 88 - 89 89 - public string ApplicationName 90 90 - { 91 91 - get { return GetType().Name; } 92 92 - } 93 93 - 94 94 - protected void RunUnitTest(string testCaseId) 95 95 - { 96 96 - Console.WriteLine("---- SNIP end of stored representation ----"); 97 97 - 98 98 - var tc = Application.Functions[testCaseId]; 99 99 - Assert.That(tc, Is.Not.Null, "Test case " + testCaseId + " not found."); 100 100 - 101 101 - var rt = _findRunFunction(); 102 102 - Assert.That(rt, Is.Not.Null, 103 103 - "Test case run function (part of testing framework) not found. Was looking for {0}.", RunTestId); 104 104 - 105 105 - var resP = rt.Run(Engine, new[] {PType.Null, Root.CreateNativePValue(tc)}); 106 106 - var success = (bool) resP.DynamicCall(Root, new PValue[0], PCall.Get, "Key").Value; 107 107 - if (success) 108 108 - return; 109 109 - 110 110 - var eObj = resP 111 111 - .DynamicCall(Root, new PValue[0], PCall.Get, "Value") 112 112 - .DynamicCall(Root, new PValue[0], PCall.Get, "e") 113 113 - .Value; 114 114 - var e = eObj as Exception; 115 115 - if (e != null) 116 116 - { 117 117 - throw e; 118 118 - } 119 119 - else 120 120 - { 121 121 - Console.WriteLine("Test failed. Result:"); 122 122 - Console.WriteLine(eObj); 123 123 - Assert.Fail("Test failed"); 124 124 - } 125 125 - } 126 126 - 127 127 - /// <summary> 128 128 - /// Prints a stored representation of each application in the compound that has its "request_dump" flag set. 129 129 - /// </summary> 130 130 - public void PrintCompound() 131 131 - { 132 132 - var tasks = 133 133 - Application.Compound.Where(app => app.Meta[DumpRequestFlag].Switch).Select( 134 134 - app => 135 135 - new KeyValuePair<ModuleName, Task<ITarget>>(app.Module.Name, ModuleCache.BuildAsync(app.Module.Name))) 136 136 - .ToDictionary(k => k.Key, k => k.Value); 137 137 - foreach (var entry in tasks) 138 138 - { 139 139 - var name = entry.Key; 140 140 - var target = entry.Value.Result; 141 141 - 142 142 - Console.WriteLine(); 143 143 - Console.WriteLine("################################## begin of stored representation for {0} ",name); 144 144 - 145 145 - var opt = new LoaderOptions(Engine, new Application(target.Module), target.Symbols) 146 146 - {ReconstructSymbols = false, RegisterCommands = false, StoreSymbols = true}; 147 147 - var ldr = new Loader(opt); 148 148 - ldr.Store(Console.Out); 149 149 - 150 150 - Console.WriteLine("################################## end of stored representation for {0} ----------", name); 151 151 - } 152 152 - } 153 153 - 154 154 - private PFunction _findRunFunction() 155 155 - { 156 156 - return Application.Compound.Select(app => 157 157 - { 158 158 - PFunction func; 159 159 - return app.Functions.TryGetValue(RunTestId, out func) ? func : null; 160 160 - }).SingleOrDefault(f => f != null); 161 161 - } 162 162 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Collections.Generic; 28 28 + using System.IO; 29 29 + using System.Linq; 30 30 + using System.Reflection; 31 31 + using System.Threading.Tasks; 32 32 + using JetBrains.Annotations; 33 33 + using NUnit.Framework; 34 34 + using Prexonite; 35 35 + using Prexonite.Compiler; 36 36 + using Prexonite.Compiler.Build; 37 37 + using Prexonite.Compiler.Symbolic; 38 38 + using Prexonite.Modular; 39 39 + using Prexonite.Types; 40 40 + 41 41 + namespace PrexoniteTests.Tests.Configurations 42 42 + { 43 43 + internal abstract class ScriptedUnitTestContainer 44 44 + { 45 45 + public Application Application { get; set; } 46 46 + public Engine Engine { get; set; } 47 47 + public Loader Loader { get; set; } 48 48 + 49 49 + public List<string> Dependencies { get; set; } 50 50 + 51 51 + public StackContext Root { get; set; } 52 52 + 53 53 + public const string ListTestsId = @"test\list_test"; 54 54 + public const string RunTestId = @"test\run_test"; 55 55 + public const string PrexoniteUnitTestFramework = @"psr\test.pxs"; 56 56 + public const string DumpRequestFlag = "request_dump"; 57 57 + 58 58 + protected abstract UnitTestConfiguration Runner { get; } 59 59 + 60 60 + public void Initialize() 61 61 + { 62 62 + Application = new Application(ApplicationName); 63 63 + Engine = new Engine(); 64 64 + Loader = new Loader(Engine, Application); 65 65 + 66 66 + Dependencies = new List<string>(); 67 67 + Root = new NullContext(Engine, Application, new string[0]); 68 68 + 69 69 + var slnPath = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location); 70 70 + while (Directory.Exists(slnPath) && !File.Exists(Path.Combine(slnPath, "Prexonite.sln"))) 71 71 + slnPath = Path.Combine(slnPath, @".." + Path.DirectorySeparatorChar); 72 72 + 73 73 + if (Directory.Exists(slnPath)) 74 74 + { 75 75 + var psrTestsPath = 76 76 + Path.GetFullPath(Path.Combine(slnPath, @"PrexoniteTests\psr-tests")); 77 77 + Console.WriteLine("inferred psr-tests path: " + psrTestsPath, "Engine.Path"); 78 78 + Engine.Paths.Add(psrTestsPath); 79 79 + 80 80 + var prxPath = Path.GetFullPath(Path.Combine(slnPath, @"Prx")); 81 81 + Console.WriteLine("inferred prx path: " + prxPath, "Engine.Path"); 82 82 + Engine.Paths.Add(prxPath); 83 83 + } 84 84 + else 85 85 + { 86 86 + Console.WriteLine("CANNOT INFER solution PATH: " + slnPath, "Engine.Path"); 87 87 + } 88 88 + } 89 89 + 90 90 + public string ApplicationName 91 91 + { 92 92 + get { return GetType().Name; } 93 93 + } 94 94 + 95 95 + protected void RunUnitTest(string testCaseId) 96 96 + { 97 97 + Console.WriteLine("---- SNIP end of stored representation ----"); 98 98 + 99 99 + var tc = Application.Functions[testCaseId]; 100 100 + Assert.That(tc, Is.Not.Null, "Test case " + testCaseId + " not found."); 101 101 + 102 102 + var rt = _findRunFunction(); 103 103 + Assert.That(rt, Is.Not.Null, 104 104 + "Test case run function (part of testing framework) not found. Was looking for {0}.", RunTestId); 105 105 + 106 106 + var resP = rt.Run(Engine, new[] {PType.Null, Root.CreateNativePValue(tc)}); 107 107 + var success = (bool) resP.DynamicCall(Root, new PValue[0], PCall.Get, "Key").Value; 108 108 + if (success) 109 109 + return; 110 110 + 111 111 + var eObj = resP 112 112 + .DynamicCall(Root, new PValue[0], PCall.Get, "Value") 113 113 + .DynamicCall(Root, new PValue[0], PCall.Get, "e") 114 114 + .Value; 115 115 + var e = eObj as Exception; 116 116 + if (e != null) 117 117 + { 118 118 + throw e; 119 119 + } 120 120 + else 121 121 + { 122 122 + Console.WriteLine("Test failed. Result:"); 123 123 + Console.WriteLine(eObj); 124 124 + Assert.Fail("Test failed"); 125 125 + } 126 126 + } 127 127 + 128 128 + /// <summary> 129 129 + /// Prints a stored representation of each application in the compound that has its "request_dump" flag set. 130 130 + /// </summary> 131 131 + public void PrintCompound() 132 132 + { 133 133 + var tasks = 134 134 + Application.Compound.Where(app => app.Meta[DumpRequestFlag].Switch).Select( 135 135 + app => 136 136 + new KeyValuePair<ModuleName, Task<ITarget>>(app.Module.Name, ModuleCache.BuildAsync(app.Module.Name))) 137 137 + .ToDictionary(k => k.Key, k => k.Value); 138 138 + foreach (var entry in tasks) 139 139 + { 140 140 + var name = entry.Key; 141 141 + var target = entry.Value.Result; 142 142 + 143 143 + Console.WriteLine(); 144 144 + Console.WriteLine("################################## begin of stored representation for {0} ",name); 145 145 + 146 146 + var opt = new LoaderOptions(Engine, new Application(target.Module), target.Symbols) 147 147 + {ReconstructSymbols = false, RegisterCommands = false, StoreSymbols = true}; 148 148 + var ldr = new Loader(opt); 149 149 + ldr.Store(Console.Out); 150 150 + 151 151 + Console.WriteLine("################################## end of stored representation for {0} ----------", name); 152 152 + } 153 153 + } 154 154 + 155 155 + private PFunction _findRunFunction() 156 156 + { 157 157 + return Application.Compound.Select(app => 158 158 + { 159 159 + PFunction func; 160 160 + return app.Functions.TryGetValue(RunTestId, out func) ? func : null; 161 161 + }).SingleOrDefault(f => f != null); 162 162 + } 163 163 + } 163 164 }

+62 -65

PrexoniteTests/Tests/Internal/DependingOnConstraint.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Linq; 28 28 - using NUnit.Framework.Constraints; 29 29 - using Prexonite.Compiler.Build; 30 30 - using Prexonite.Modular; 31 31 - 32 32 - namespace PrexoniteTests.Tests.Internal 33 33 - { 34 34 - public class DependingOnConstraint : Constraint 35 35 - { 36 36 - private readonly ModuleName _dependency; 37 37 - 38 38 - public DependingOnConstraint(ModuleName dependency) 39 39 - { 40 40 - _dependency = dependency; 41 41 - } 42 42 - 43 43 - public DependingOnConstraint(string name) 44 44 - { 45 45 - ModuleName moduleName; 46 46 - if (ModuleName.TryParse(name, out moduleName)) 47 47 - _dependency = moduleName; 48 48 - else 49 49 - throw new ArgumentException(string.Format("The string {0} is not a valid module name.", name)); 50 50 - } 51 51 - 52 52 - public override bool Matches(object actualValue) 53 53 - { 54 54 - actual = actualValue; 55 55 - var desc = actualValue as ITargetDescription; 56 56 - 57 57 - return desc != null && desc.Dependencies.Any(n => n.Equals(_dependency)); 58 58 - } 59 59 - 60 60 - public override void WriteDescriptionTo(MessageWriter writer) 61 61 - { 62 62 - writer.WritePredicate("build target description depending on "); 63 63 - writer.WriteExpectedValue(_dependency); 64 64 - } 65 65 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Linq; 28 28 + using NUnit.Framework.Constraints; 29 29 + using Prexonite.Compiler.Build; 30 30 + using Prexonite.Modular; 31 31 + 32 32 + namespace PrexoniteTests.Tests.Internal 33 33 + { 34 34 + public class DependingOnConstraint : Constraint 35 35 + { 36 36 + private readonly ModuleName _dependency; 37 37 + 38 38 + public DependingOnConstraint(ModuleName dependency) : base(dependency) 39 39 + { 40 40 + _dependency = dependency; 41 41 + } 42 42 + 43 43 + public DependingOnConstraint(string name) : base(name) 44 44 + { 45 45 + ModuleName moduleName; 46 46 + if (ModuleName.TryParse(name, out moduleName)) 47 47 + _dependency = moduleName; 48 48 + else 49 49 + throw new ArgumentException(string.Format("The string {0} is not a valid module name.", name)); 50 50 + } 51 51 + 52 52 + public override ConstraintResult ApplyTo<TActual>(TActual actual) 53 53 + { 54 54 + var actualValue = actual; 55 55 + return new ConstraintResult(this, actualValue, _matches(actualValue)); 56 56 + } 57 57 + 58 58 + private bool _matches(object actualValue) 59 59 + { 60 60 + return actualValue is ITargetDescription desc && desc.Dependencies.Any(n => n.Equals(_dependency)); 61 61 + } 62 62 + } 66 63 }

+565 -565

PrexoniteTests/Tests/SelfAssemblingPlanTests.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Diagnostics; 28 28 - using System.IO; 29 29 - using System.Linq; 30 30 - using System.Text; 31 31 - using System.Threading; 32 32 - using JetBrains.Annotations; 33 33 - using NUnit.Framework; 34 34 - using Prexonite.Compiler.Build; 35 35 - using Prexonite.Compiler.Build.Internal; 36 36 - using Prexonite.Modular; 37 37 - 38 38 - namespace PrexoniteTests.Tests 39 39 - { 40 40 - [TestFixture] 41 41 - public class SelfAssemblingPlanTests 42 42 - { 43 43 - protected static readonly TraceSource Trace = new TraceSource("PrexoniteTests.Tests.SelfAssemblingPlan"); 44 44 - 45 45 - private String _basePath; 46 46 - 47 47 - protected ISelfAssemblingPlan Sam; 48 48 - 49 49 - protected IDisposable MockFile(String path, String content) 50 50 - { 51 51 - var handle = new MockFileHandle(new FileInfo(Path.Combine(_basePath, path)), this); 52 52 - DirectoryInfo fileDir = handle.File.Directory; 53 53 - Debug.Assert(fileDir != null, "handle.File.Directory != null"); 54 54 - fileDir.Create(); 55 55 - using (var sw = new StreamWriter(handle.File.ToString(),false,Encoding.UTF8)) 56 56 - { 57 57 - sw.Write(content); 58 58 - sw.Flush(); 59 59 - sw.Close(); 60 60 - } 61 61 - return handle; 62 62 - } 63 63 - 64 64 - private class MockFileHandle : IDisposable 65 65 - { 66 66 - [NotNull] 67 67 - private readonly FileInfo _file; 68 68 - [NotNull] 69 69 - private readonly SelfAssemblingPlanTests _instance; 70 70 - 71 71 - [NotNull] 72 72 - public FileInfo File 73 73 - { 74 74 - get { return _file; } 75 75 - } 76 76 - 77 77 - [NotNull] 78 78 - public SelfAssemblingPlanTests Instance 79 79 - { 80 80 - get { return _instance; } 81 81 - } 82 82 - 83 83 - public MockFileHandle([NotNull]FileInfo file, [NotNull]SelfAssemblingPlanTests instance) 84 84 - { 85 85 - _file = file; 86 86 - _instance = instance; 87 87 - } 88 88 - 89 89 - public void Dispose() 90 90 - { 91 91 - GC.SuppressFinalize(this); 92 92 - Dispose(true); 93 93 - } 94 94 - 95 95 - protected void Dispose(bool disposing) 96 96 - { 97 97 - if (disposing) 98 98 - { 99 99 - 100 100 - } 101 101 - _tryDelete(); 102 102 - } 103 103 - 104 104 - private void _tryDelete() 105 105 - { 106 106 - try 107 107 - { 108 108 - _file.Delete(); 109 109 - } 110 110 - catch (IOException e) 111 111 - { 112 112 - Trace.TraceEvent(TraceEventType.Error, 0, string.Format("Cannot delete file {0} because of {1}", _file, e)); 113 113 - } 114 114 - } 115 115 - 116 116 - ~MockFileHandle() 117 117 - { 118 118 - Dispose(false); 119 119 - } 120 120 - } 121 121 - 122 122 - private String _prototypePath; 123 123 - 124 124 - [TestFixtureSetUp] 125 125 - public void Init() 126 126 - { 127 127 - _prototypePath = Path.Combine(Path.GetTempPath(), "PrexoniteTests.SelfAssemblingPlanTests"); 128 128 - } 129 129 - 130 130 - [SetUp] 131 131 - public void Prepare() 132 132 - { 133 133 - _basePath = Path.Combine(_prototypePath, Guid.NewGuid().ToString("N")); 134 134 - if (Directory.Exists(_basePath)) 135 135 - { 136 136 - Trace.TraceEvent(TraceEventType.Warning, 0, 137 137 - "Expected temporary directory at {0} not to exist. Using it anyway.", _basePath); 138 138 - } 139 139 - Sam = Plan.CreateSelfAssembling(); 140 140 - Sam.SearchPaths.Add(_basePath); 141 141 - } 142 142 - 143 143 - private void _tryTearDown() 144 144 - { 145 145 - try 146 146 - { 147 147 - Directory.Delete(_basePath, recursive: true); 148 148 - } 149 149 - catch (Exception e) 150 150 - { 151 151 - Trace.TraceEvent(TraceEventType.Error, 0, "Exception during tear down (deletion of temp dir): {0}", e); 152 152 - Console.WriteLine(e); 153 153 - } 154 154 - } 155 155 - 156 156 - [TearDown] 157 157 - public void TearDown() 158 158 - { 159 159 - _tryTearDown(); 160 160 - } 161 161 - 162 162 - [TestFixtureTearDown] 163 163 - public void LastDitchEffort() 164 164 - { 165 165 - try 166 166 - { 167 167 - Directory.Delete(_prototypePath,recursive:true); 168 168 - } 169 169 - catch (Exception e) 170 170 - { 171 171 - Trace.TraceEvent(TraceEventType.Error, 0, "Exception during fixture tear down (last ditch effort, deletion of temp dir): {0}", e); 172 172 - Console.WriteLine(e); 173 173 - } 174 174 - } 175 175 - 176 176 - [Test] 177 177 - public void EmptyInMemory() 178 178 - { 179 179 - var desc = Sam.AssembleAsync(Source.FromString(""), CancellationToken.None).Result; 180 180 - Assert.That(desc,Is.Not.Null); 181 181 - Assert.That(desc.BuildMessages,Is.Empty,"Should not have build (error) messages"); 182 182 - } 183 183 - 184 184 - [Test] 185 185 - public void Empty() 186 186 - { 187 187 - const string path = "empty.pxs"; 188 188 - using (MockFile(path,"")) 189 189 - { 190 190 - var desc = Sam.AssembleAsync(Source.FromFile(Path.Combine(_basePath,path),Encoding.UTF8), CancellationToken.None).Result; 191 191 - Assert.That(desc, Is.Not.Null); 192 192 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 193 193 - } 194 194 - } 195 195 - 196 196 - [Test] 197 197 - public void ExtractModuleNameInMemory() 198 198 - { 199 199 - var desc = Sam.AssembleAsync(Source.FromString("name the_module/5.4.3.2;"), CancellationToken.None).Result; 200 200 - Assert.That(desc, Is.Not.Null); 201 201 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 202 202 - Assert.That(desc.Name,Is.EqualTo(new ModuleName("the_module",new Version(5,4,3,2)))); 203 203 - } 204 204 - 205 205 - [Test] 206 206 - public void ExtractModuleName() 207 207 - { 208 208 - const string path = "unrelated_name.pxs"; 209 209 - using (MockFile(path,"name the_module/5.4.3.2;")) 210 210 - { 211 211 - var desc = Sam.AssembleAsync(Source.FromFile(Path.Combine(_basePath,path), Encoding.UTF8), CancellationToken.None).Result; 212 212 - Assert.That(desc, Is.Not.Null); 213 213 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 214 214 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("the_module", new Version(5, 4, 3, 2)))); 215 215 - } 216 216 - } 217 217 - 218 218 - [Test] 219 219 - public void SinglePathDependency() 220 220 - { 221 221 - const string path = "find_me.pxs"; 222 222 - using (MockFile(path, "name the_module/5.4.3.2;")) 223 223 - { 224 224 - var desc = Sam.AssembleAsync(Source.FromString(@" 225 225 - name finder; 226 226 - references { 227 227 - ""./find_me.pxs"" 228 228 - }; 229 229 - "), CancellationToken.None).Result; 230 230 - Assert.That(desc, Is.Not.Null); 231 231 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 232 232 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0,0)))); 233 233 - var theModuleName = new ModuleName("the_module", new Version(5, 4, 3, 2)); 234 234 - Assert.That(desc.Dependencies.Count,Is.GreaterThanOrEqualTo(1),"Primary should have at least one dependency."); 235 235 - Assert.That(desc.Dependencies,Contains.Item(theModuleName),string.Format("Primary is expected to depend on {0}.", theModuleName)); 236 236 - var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 237 237 - Assert.That(firstOrDefault,Is.Not.Null,string.Format("Expected a target description of {0} in SAM.", theModuleName)); 238 238 - } 239 239 - } 240 240 - 241 241 - [Test] 242 242 - public void SingleModuleNameDependency() 243 243 - { 244 244 - const string path = "found.pxs"; 245 245 - using (MockFile(path, "name found;")) 246 246 - { 247 247 - var desc = Sam.AssembleAsync(Source.FromString(@" 248 248 - name finder; 249 249 - references { 250 250 - found 251 251 - }; 252 252 - "), CancellationToken.None).Result; 253 253 - Assert.That(desc, Is.Not.Null); 254 254 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 255 255 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 256 256 - var theModuleName = new ModuleName("found", new Version(0,0)); 257 257 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 258 258 - Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 259 259 - var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 260 260 - Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 261 261 - } 262 262 - } 263 263 - 264 264 - [Test] 265 265 - public void SingleModuleDottedNameDependency() 266 266 - { 267 267 - const string path = "hay/stack.pxs"; 268 268 - using (MockFile(path, "name hay::stack;")) 269 269 - { 270 270 - var desc = Sam.AssembleAsync(Source.FromString(@" 271 271 - name finder; 272 272 - references { 273 273 - hay::stack 274 274 - }; 275 275 - "), CancellationToken.None).Result; 276 276 - Assert.That(desc, Is.Not.Null); 277 277 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 278 278 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 279 279 - var theModuleName = new ModuleName("hay.stack", new Version(0, 0)); 280 280 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 281 281 - Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 282 282 - var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 283 283 - Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 284 284 - } 285 285 - } 286 286 - 287 287 - [Test] 288 288 - public void DeeplyDottedModuleNameDependency() 289 289 - { 290 290 - const string path = "hay/stack/lazy/impl.pxs"; 291 291 - using (MockFile(path, "name hay::stack::lazy::impl;")) 292 292 - { 293 293 - var desc = Sam.AssembleAsync(Source.FromString(@" 294 294 - name finder; 295 295 - references { 296 296 - hay::stack::lazy::impl 297 297 - }; 298 298 - "), CancellationToken.None).Result; 299 299 - Assert.That(desc, Is.Not.Null); 300 300 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 301 301 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 302 302 - var theModuleName = new ModuleName("hay.stack.lazy.impl", new Version(0, 0)); 303 303 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 304 304 - Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 305 305 - var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 306 306 - Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 307 307 - } 308 308 - } 309 309 - 310 310 - 311 311 - [Test] 312 312 - public void CommonPrefixDottedModuleNameDependency() 313 313 - { 314 314 - const string path = "hay.stack/lazy/impl.pxs"; 315 315 - using (MockFile(path, "name hay::stack::lazy::impl;")) 316 316 - { 317 317 - var desc = Sam.AssembleAsync(Source.FromString(@" 318 318 - name finder; 319 319 - references { 320 320 - hay::stack::lazy::impl 321 321 - }; 322 322 - "), CancellationToken.None).Result; 323 323 - Assert.That(desc, Is.Not.Null); 324 324 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 325 325 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 326 326 - var theModuleName = new ModuleName("hay.stack.lazy.impl", new Version(0, 0)); 327 327 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 328 328 - Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 329 329 - var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 330 330 - Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 331 331 - } 332 332 - } 333 333 - 334 334 - [Test] 335 335 - public void FlatDottedModuleNameDependency() 336 336 - { 337 337 - const string path = "hay.stack.lazy.impl.pxs"; 338 338 - using (MockFile(path, "name hay::stack::lazy::impl;")) 339 339 - { 340 340 - var desc = Sam.AssembleAsync(Source.FromString(@" 341 341 - name finder; 342 342 - references { 343 343 - hay::stack::lazy::impl 344 344 - }; 345 345 - "), CancellationToken.None).Result; 346 346 - Assert.That(desc, Is.Not.Null); 347 347 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 348 348 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 349 349 - var theModuleName = new ModuleName("hay.stack.lazy.impl", new Version(0, 0)); 350 350 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 351 351 - Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 352 352 - var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 353 353 - Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 354 354 - } 355 355 - } 356 356 - 357 357 - [Test] 358 358 - public void DoubleModuleNameDependency() 359 359 - { 360 360 - const string pathFound = "found.pxs"; 361 361 - const string pathLost = "lost.pxs"; 362 362 - using (MockFile(pathFound, "name found;")) 363 363 - using (MockFile(pathLost,"name lost;")) 364 364 - { 365 365 - var desc = 366 366 - Sam.AssembleAsync( 367 367 - Source.FromString(@"name finder;references{found,lost};"), CancellationToken.None).Result; 368 368 - Assert.That(desc, Is.Not.Null); 369 369 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 370 370 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 371 371 - 372 372 - // Does the primary module depend on lost and found? 373 373 - var foundModuleName = new ModuleName("found", new Version(0, 0)); 374 374 - var lostModuleName = new ModuleName("lost", new Version(0, 0)); 375 375 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(2), "Primary should have at least two dependencies."); 376 376 - Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 377 377 - Assert.That(desc.Dependencies, Contains.Item(lostModuleName), string.Format("Primary is expected to depend on {0}.", lostModuleName)); 378 378 - 379 379 - // Does SAM contain the found module 380 380 - var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 381 381 - Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 382 382 - // ReSharper disable PossibleNullReferenceException 383 383 - Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 384 384 - // ReSharper restore PossibleNullReferenceException 385 385 - 386 386 - // does SAM contain the lost module? 387 387 - var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 388 388 - Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 389 389 - // ReSharper disable PossibleNullReferenceException 390 390 - Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 391 391 - // ReSharper restore PossibleNullReferenceException 392 392 - } 393 393 - } 394 394 - 395 395 - [Test] 396 396 - public void TransitiveDependency() 397 397 - { 398 398 - const string pathFound = "found.pxs"; 399 399 - const string pathLost = "lost.pxs"; 400 400 - using (MockFile(pathFound, "name found;references{lost}")) 401 401 - using (MockFile(pathLost, "name lost;")) 402 402 - { 403 403 - var desc = 404 404 - Sam.AssembleAsync( 405 405 - Source.FromString(@"name finder;references{found};"), CancellationToken.None).Result; 406 406 - Assert.That(desc, Is.Not.Null); 407 407 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 408 408 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 409 409 - 410 410 - // Does the primary module depend on lost? 411 411 - var foundModuleName = new ModuleName("found", new Version(0, 0)); 412 412 - var lostModuleName = new ModuleName("lost", new Version(0, 0)); 413 413 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 414 414 - Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 415 415 - 416 416 - // Does SAM contain the found module? 417 417 - var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 418 418 - Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 419 419 - Debug.Assert(foundTarget != null); 420 420 - 421 421 - // Does found depend on lost? 422 422 - // ReSharper disable PossibleNullReferenceException 423 423 - Assert.That(foundTarget.Dependencies, Contains.Item(lostModuleName), string.Format("{1} is expected to depend on {0}.", lostModuleName, foundModuleName)); 424 424 - Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 425 425 - 426 426 - // does SAM contain the lost module? 427 427 - var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 428 428 - Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 429 429 - Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 430 430 - // ReSharper restore PossibleNullReferenceException 431 431 - } 432 432 - } 433 433 - 434 434 - [Test] 435 435 - public void RelativeDependency() 436 436 - { 437 437 - const string pathFound = "stack/found.pxs"; 438 438 - const string pathLost = "stack/lost.pxs"; 439 439 - using (MockFile(pathFound, "name found;references{lost}")) 440 440 - using (MockFile(pathLost, "name lost;")) 441 441 - { 442 442 - var emptyCount = Sam.TargetDescriptions.Count; 443 443 - var desc = 444 444 - Sam.AssembleAsync( 445 445 - Source.FromString(@"name finder;references{""./stack/found.pxs""};"), CancellationToken.None).Result; 446 446 - Assert.That(desc, Is.Not.Null); 447 447 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 448 448 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 449 449 - 450 450 - // Does the primary module depend on lost and found? 451 451 - var foundModuleName = new ModuleName("found", new Version(0, 0)); 452 452 - var lostModuleName = new ModuleName("lost", new Version(0, 0)); 453 453 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 454 454 - Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 455 455 - 456 456 - // Does SAM contain the found module 457 457 - var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 458 458 - Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 459 459 - // ReSharper disable PossibleNullReferenceException 460 460 - Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 461 461 - // ReSharper restore PossibleNullReferenceException 462 462 - Assert.That(foundTarget.Dependencies, Contains.Item(lostModuleName), string.Format("found module expected to depend on {0}.", lostModuleName)); 463 463 - 464 464 - // does SAM contain the lost module? 465 465 - var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 466 466 - Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 467 467 - // ReSharper disable PossibleNullReferenceException 468 468 - Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 469 469 - // ReSharper restore PossibleNullReferenceException 470 470 - 471 471 - Assert.That(Sam.TargetDescriptions.Count,Is.EqualTo(emptyCount+3), "There should be exactly three new modules: finder, lost and found."); 472 472 - } 473 473 - } 474 474 - 475 475 - [Test] 476 476 - public void FindProvided() 477 477 - { 478 478 - const string pathFound = "found.pxs"; 479 479 - const string pathLost = "lost.pxs"; 480 480 - 481 481 - // Provide the module lost to the SAM ahead of time, fully resolved 482 482 - var lostModuleName = new ModuleName("lost", new Version(0, 0)); 483 483 - Sam.TargetDescriptions.Add(new ManualTargetDescription(lostModuleName, Source.FromString("name: lost;"), 484 484 - pathLost, Enumerable.Empty<ModuleName>())); 485 485 - 486 486 - // Have module found short-circuit when resolving lost 487 487 - using (MockFile(pathFound, "name found;references{lost}")) 488 488 - { 489 489 - var desc = 490 490 - Sam.AssembleAsync( 491 491 - Source.FromString(@"name finder;references{found};"), CancellationToken.None).Result; 492 492 - Assert.That(desc, Is.Not.Null); 493 493 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 494 494 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 495 495 - 496 496 - // Does the primary module depend on lost? 497 497 - var foundModuleName = new ModuleName("found", new Version(0, 0)); 498 498 - 499 499 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 500 500 - Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 501 501 - 502 502 - // Does SAM contain the found module? 503 503 - var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 504 504 - Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 505 505 - Debug.Assert(foundTarget != null); 506 506 - 507 507 - // Does found depend on lost? 508 508 - // ReSharper disable PossibleNullReferenceException 509 509 - Assert.That(foundTarget.Dependencies, Contains.Item(lostModuleName), string.Format("{1} is expected to depend on {0}.", lostModuleName, foundModuleName)); 510 510 - Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 511 511 - 512 512 - // does SAM contain the lost module? 513 513 - var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 514 514 - Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 515 515 - Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 516 516 - // ReSharper restore PossibleNullReferenceException 517 517 - } 518 518 - } 519 519 - 520 520 - [Test] 521 521 - public void DiamondDependency() 522 522 - { 523 523 - const string pathFound = "found.pxs"; 524 524 - const string pathLost = "lost.pxs"; 525 525 - const string pathBase = "base.pxs"; 526 526 - using (MockFile(pathFound, "name found;references{base}")) 527 527 - using (MockFile(pathLost, "name lost;references{base}")) 528 528 - using(MockFile(pathBase,"name base;")) 529 529 - { 530 530 - var desc = 531 531 - Sam.AssembleAsync( 532 532 - Source.FromString(@"name finder;references{lost,found};"), CancellationToken.None).Result; 533 533 - Assert.That(desc, Is.Not.Null); 534 534 - Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 535 535 - Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 536 536 - 537 537 - // Does the primary module depend on lost and found? 538 538 - var foundModuleName = new ModuleName("found", new Version(0, 0)); 539 539 - var lostModuleName = new ModuleName("lost", new Version(0, 0)); 540 540 - var baseModuelName = new ModuleName("base", new Version(0, 0)); 541 541 - Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 542 542 - Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 543 543 - Assert.That(desc.Dependencies, Contains.Item(lostModuleName), string.Format("Primary is expected to depend on {0}.", lostModuleName)); 544 544 - 545 545 - // Does SAM contain the found module? 546 546 - var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 547 547 - Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 548 548 - Debug.Assert(foundTarget != null); 549 549 - 550 550 - // Does found depend on base? 551 551 - // ReSharper disable PossibleNullReferenceException 552 552 - Assert.That(foundTarget.Dependencies, Contains.Item(baseModuelName), string.Format("{1} is expected to depend on {0}.", baseModuelName, foundModuleName)); 553 553 - Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 554 554 - 555 555 - // does SAM contain the lost module? 556 556 - var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 557 557 - Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 558 558 - Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 559 559 - // ReSharper restore PossibleNullReferenceException 560 560 - 561 561 - Assert.That(lostTarget.Dependencies, Contains.Item(baseModuelName), string.Format("{1} is expected to depend on {0}.", baseModuelName, lostTarget)); 562 562 - Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostTarget)); 563 563 - } 564 564 - } 565 565 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Diagnostics; 28 28 + using System.IO; 29 29 + using System.Linq; 30 30 + using System.Text; 31 31 + using System.Threading; 32 32 + using JetBrains.Annotations; 33 33 + using NUnit.Framework; 34 34 + using Prexonite.Compiler.Build; 35 35 + using Prexonite.Compiler.Build.Internal; 36 36 + using Prexonite.Modular; 37 37 + 38 38 + namespace PrexoniteTests.Tests 39 39 + { 40 40 + [TestFixture] 41 41 + public class SelfAssemblingPlanTests 42 42 + { 43 43 + protected static readonly TraceSource Trace = new TraceSource("PrexoniteTests.Tests.SelfAssemblingPlan"); 44 44 + 45 45 + private String _basePath; 46 46 + 47 47 + protected ISelfAssemblingPlan Sam; 48 48 + 49 49 + protected IDisposable MockFile(String path, String content) 50 50 + { 51 51 + var handle = new MockFileHandle(new FileInfo(Path.Combine(_basePath, path)), this); 52 52 + DirectoryInfo fileDir = handle.File.Directory; 53 53 + Debug.Assert(fileDir != null, "handle.File.Directory != null"); 54 54 + fileDir.Create(); 55 55 + using (var sw = new StreamWriter(handle.File.ToString(),false,Encoding.UTF8)) 56 56 + { 57 57 + sw.Write(content); 58 58 + sw.Flush(); 59 59 + sw.Close(); 60 60 + } 61 61 + return handle; 62 62 + } 63 63 + 64 64 + private class MockFileHandle : IDisposable 65 65 + { 66 66 + [NotNull] 67 67 + private readonly FileInfo _file; 68 68 + [NotNull] 69 69 + private readonly SelfAssemblingPlanTests _instance; 70 70 + 71 71 + [NotNull] 72 72 + public FileInfo File 73 73 + { 74 74 + get { return _file; } 75 75 + } 76 76 + 77 77 + [NotNull] 78 78 + public SelfAssemblingPlanTests Instance 79 79 + { 80 80 + get { return _instance; } 81 81 + } 82 82 + 83 83 + public MockFileHandle([NotNull]FileInfo file, [NotNull]SelfAssemblingPlanTests instance) 84 84 + { 85 85 + _file = file; 86 86 + _instance = instance; 87 87 + } 88 88 + 89 89 + public void Dispose() 90 90 + { 91 91 + GC.SuppressFinalize(this); 92 92 + Dispose(true); 93 93 + } 94 94 + 95 95 + protected void Dispose(bool disposing) 96 96 + { 97 97 + if (disposing) 98 98 + { 99 99 + 100 100 + } 101 101 + _tryDelete(); 102 102 + } 103 103 + 104 104 + private void _tryDelete() 105 105 + { 106 106 + try 107 107 + { 108 108 + _file.Delete(); 109 109 + } 110 110 + catch (IOException e) 111 111 + { 112 112 + Trace.TraceEvent(TraceEventType.Error, 0, string.Format("Cannot delete file {0} because of {1}", _file, e)); 113 113 + } 114 114 + } 115 115 + 116 116 + ~MockFileHandle() 117 117 + { 118 118 + Dispose(false); 119 119 + } 120 120 + } 121 121 + 122 122 + private String _prototypePath; 123 123 + 124 124 + [OneTimeSetUp] 125 125 + public void Init() 126 126 + { 127 127 + _prototypePath = Path.Combine(Path.GetTempPath(), "PrexoniteTests.SelfAssemblingPlanTests"); 128 128 + } 129 129 + 130 130 + [SetUp] 131 131 + public void Prepare() 132 132 + { 133 133 + _basePath = Path.Combine(_prototypePath, Guid.NewGuid().ToString("N")); 134 134 + if (Directory.Exists(_basePath)) 135 135 + { 136 136 + Trace.TraceEvent(TraceEventType.Warning, 0, 137 137 + "Expected temporary directory at {0} not to exist. Using it anyway.", _basePath); 138 138 + } 139 139 + Sam = Plan.CreateSelfAssembling(); 140 140 + Sam.SearchPaths.Add(_basePath); 141 141 + } 142 142 + 143 143 + private void _tryTearDown() 144 144 + { 145 145 + try 146 146 + { 147 147 + Directory.Delete(_basePath, recursive: true); 148 148 + } 149 149 + catch (Exception e) 150 150 + { 151 151 + Trace.TraceEvent(TraceEventType.Error, 0, "Exception during tear down (deletion of temp dir): {0}", e); 152 152 + Console.WriteLine(e); 153 153 + } 154 154 + } 155 155 + 156 156 + [TearDown] 157 157 + public void TearDown() 158 158 + { 159 159 + _tryTearDown(); 160 160 + } 161 161 + 162 162 + [OneTimeTearDown] 163 163 + public void LastDitchEffort() 164 164 + { 165 165 + try 166 166 + { 167 167 + Directory.Delete(_prototypePath,recursive:true); 168 168 + } 169 169 + catch (Exception e) 170 170 + { 171 171 + Trace.TraceEvent(TraceEventType.Error, 0, "Exception during fixture tear down (last ditch effort, deletion of temp dir): {0}", e); 172 172 + Console.WriteLine(e); 173 173 + } 174 174 + } 175 175 + 176 176 + [Test] 177 177 + public void EmptyInMemory() 178 178 + { 179 179 + var desc = Sam.AssembleAsync(Source.FromString(""), CancellationToken.None).Result; 180 180 + Assert.That(desc,Is.Not.Null); 181 181 + Assert.That(desc.BuildMessages,Is.Empty,"Should not have build (error) messages"); 182 182 + } 183 183 + 184 184 + [Test] 185 185 + public void Empty() 186 186 + { 187 187 + const string path = "empty.pxs"; 188 188 + using (MockFile(path,"")) 189 189 + { 190 190 + var desc = Sam.AssembleAsync(Source.FromFile(Path.Combine(_basePath,path),Encoding.UTF8), CancellationToken.None).Result; 191 191 + Assert.That(desc, Is.Not.Null); 192 192 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 193 193 + } 194 194 + } 195 195 + 196 196 + [Test] 197 197 + public void ExtractModuleNameInMemory() 198 198 + { 199 199 + var desc = Sam.AssembleAsync(Source.FromString("name the_module/5.4.3.2;"), CancellationToken.None).Result; 200 200 + Assert.That(desc, Is.Not.Null); 201 201 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 202 202 + Assert.That(desc.Name,Is.EqualTo(new ModuleName("the_module",new Version(5,4,3,2)))); 203 203 + } 204 204 + 205 205 + [Test] 206 206 + public void ExtractModuleName() 207 207 + { 208 208 + const string path = "unrelated_name.pxs"; 209 209 + using (MockFile(path,"name the_module/5.4.3.2;")) 210 210 + { 211 211 + var desc = Sam.AssembleAsync(Source.FromFile(Path.Combine(_basePath,path), Encoding.UTF8), CancellationToken.None).Result; 212 212 + Assert.That(desc, Is.Not.Null); 213 213 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 214 214 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("the_module", new Version(5, 4, 3, 2)))); 215 215 + } 216 216 + } 217 217 + 218 218 + [Test] 219 219 + public void SinglePathDependency() 220 220 + { 221 221 + const string path = "find_me.pxs"; 222 222 + using (MockFile(path, "name the_module/5.4.3.2;")) 223 223 + { 224 224 + var desc = Sam.AssembleAsync(Source.FromString(@" 225 225 + name finder; 226 226 + references { 227 227 + ""./find_me.pxs"" 228 228 + }; 229 229 + "), CancellationToken.None).Result; 230 230 + Assert.That(desc, Is.Not.Null); 231 231 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 232 232 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0,0)))); 233 233 + var theModuleName = new ModuleName("the_module", new Version(5, 4, 3, 2)); 234 234 + Assert.That(desc.Dependencies.Count,Is.GreaterThanOrEqualTo(1),"Primary should have at least one dependency."); 235 235 + Assert.That(desc.Dependencies,Contains.Item(theModuleName),string.Format("Primary is expected to depend on {0}.", theModuleName)); 236 236 + var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 237 237 + Assert.That(firstOrDefault,Is.Not.Null,string.Format("Expected a target description of {0} in SAM.", theModuleName)); 238 238 + } 239 239 + } 240 240 + 241 241 + [Test] 242 242 + public void SingleModuleNameDependency() 243 243 + { 244 244 + const string path = "found.pxs"; 245 245 + using (MockFile(path, "name found;")) 246 246 + { 247 247 + var desc = Sam.AssembleAsync(Source.FromString(@" 248 248 + name finder; 249 249 + references { 250 250 + found 251 251 + }; 252 252 + "), CancellationToken.None).Result; 253 253 + Assert.That(desc, Is.Not.Null); 254 254 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 255 255 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 256 256 + var theModuleName = new ModuleName("found", new Version(0,0)); 257 257 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 258 258 + Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 259 259 + var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 260 260 + Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 261 261 + } 262 262 + } 263 263 + 264 264 + [Test] 265 265 + public void SingleModuleDottedNameDependency() 266 266 + { 267 267 + const string path = "hay/stack.pxs"; 268 268 + using (MockFile(path, "name hay::stack;")) 269 269 + { 270 270 + var desc = Sam.AssembleAsync(Source.FromString(@" 271 271 + name finder; 272 272 + references { 273 273 + hay::stack 274 274 + }; 275 275 + "), CancellationToken.None).Result; 276 276 + Assert.That(desc, Is.Not.Null); 277 277 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 278 278 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 279 279 + var theModuleName = new ModuleName("hay.stack", new Version(0, 0)); 280 280 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 281 281 + Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 282 282 + var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 283 283 + Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 284 284 + } 285 285 + } 286 286 + 287 287 + [Test] 288 288 + public void DeeplyDottedModuleNameDependency() 289 289 + { 290 290 + const string path = "hay/stack/lazy/impl.pxs"; 291 291 + using (MockFile(path, "name hay::stack::lazy::impl;")) 292 292 + { 293 293 + var desc = Sam.AssembleAsync(Source.FromString(@" 294 294 + name finder; 295 295 + references { 296 296 + hay::stack::lazy::impl 297 297 + }; 298 298 + "), CancellationToken.None).Result; 299 299 + Assert.That(desc, Is.Not.Null); 300 300 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 301 301 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 302 302 + var theModuleName = new ModuleName("hay.stack.lazy.impl", new Version(0, 0)); 303 303 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 304 304 + Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 305 305 + var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 306 306 + Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 307 307 + } 308 308 + } 309 309 + 310 310 + 311 311 + [Test] 312 312 + public void CommonPrefixDottedModuleNameDependency() 313 313 + { 314 314 + const string path = "hay.stack/lazy/impl.pxs"; 315 315 + using (MockFile(path, "name hay::stack::lazy::impl;")) 316 316 + { 317 317 + var desc = Sam.AssembleAsync(Source.FromString(@" 318 318 + name finder; 319 319 + references { 320 320 + hay::stack::lazy::impl 321 321 + }; 322 322 + "), CancellationToken.None).Result; 323 323 + Assert.That(desc, Is.Not.Null); 324 324 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 325 325 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 326 326 + var theModuleName = new ModuleName("hay.stack.lazy.impl", new Version(0, 0)); 327 327 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 328 328 + Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 329 329 + var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 330 330 + Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 331 331 + } 332 332 + } 333 333 + 334 334 + [Test] 335 335 + public void FlatDottedModuleNameDependency() 336 336 + { 337 337 + const string path = "hay.stack.lazy.impl.pxs"; 338 338 + using (MockFile(path, "name hay::stack::lazy::impl;")) 339 339 + { 340 340 + var desc = Sam.AssembleAsync(Source.FromString(@" 341 341 + name finder; 342 342 + references { 343 343 + hay::stack::lazy::impl 344 344 + }; 345 345 + "), CancellationToken.None).Result; 346 346 + Assert.That(desc, Is.Not.Null); 347 347 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 348 348 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 349 349 + var theModuleName = new ModuleName("hay.stack.lazy.impl", new Version(0, 0)); 350 350 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 351 351 + Assert.That(desc.Dependencies, Contains.Item(theModuleName), string.Format("Primary is expected to depend on {0}.", theModuleName)); 352 352 + var firstOrDefault = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(theModuleName)); 353 353 + Assert.That(firstOrDefault, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", theModuleName)); 354 354 + } 355 355 + } 356 356 + 357 357 + [Test] 358 358 + public void DoubleModuleNameDependency() 359 359 + { 360 360 + const string pathFound = "found.pxs"; 361 361 + const string pathLost = "lost.pxs"; 362 362 + using (MockFile(pathFound, "name found;")) 363 363 + using (MockFile(pathLost,"name lost;")) 364 364 + { 365 365 + var desc = 366 366 + Sam.AssembleAsync( 367 367 + Source.FromString(@"name finder;references{found,lost};"), CancellationToken.None).Result; 368 368 + Assert.That(desc, Is.Not.Null); 369 369 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 370 370 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 371 371 + 372 372 + // Does the primary module depend on lost and found? 373 373 + var foundModuleName = new ModuleName("found", new Version(0, 0)); 374 374 + var lostModuleName = new ModuleName("lost", new Version(0, 0)); 375 375 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(2), "Primary should have at least two dependencies."); 376 376 + Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 377 377 + Assert.That(desc.Dependencies, Contains.Item(lostModuleName), string.Format("Primary is expected to depend on {0}.", lostModuleName)); 378 378 + 379 379 + // Does SAM contain the found module 380 380 + var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 381 381 + Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 382 382 + // ReSharper disable PossibleNullReferenceException 383 383 + Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 384 384 + // ReSharper restore PossibleNullReferenceException 385 385 + 386 386 + // does SAM contain the lost module? 387 387 + var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 388 388 + Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 389 389 + // ReSharper disable PossibleNullReferenceException 390 390 + Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 391 391 + // ReSharper restore PossibleNullReferenceException 392 392 + } 393 393 + } 394 394 + 395 395 + [Test] 396 396 + public void TransitiveDependency() 397 397 + { 398 398 + const string pathFound = "found.pxs"; 399 399 + const string pathLost = "lost.pxs"; 400 400 + using (MockFile(pathFound, "name found;references{lost}")) 401 401 + using (MockFile(pathLost, "name lost;")) 402 402 + { 403 403 + var desc = 404 404 + Sam.AssembleAsync( 405 405 + Source.FromString(@"name finder;references{found};"), CancellationToken.None).Result; 406 406 + Assert.That(desc, Is.Not.Null); 407 407 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 408 408 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 409 409 + 410 410 + // Does the primary module depend on lost? 411 411 + var foundModuleName = new ModuleName("found", new Version(0, 0)); 412 412 + var lostModuleName = new ModuleName("lost", new Version(0, 0)); 413 413 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 414 414 + Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 415 415 + 416 416 + // Does SAM contain the found module? 417 417 + var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 418 418 + Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 419 419 + Debug.Assert(foundTarget != null); 420 420 + 421 421 + // Does found depend on lost? 422 422 + // ReSharper disable PossibleNullReferenceException 423 423 + Assert.That(foundTarget.Dependencies, Contains.Item(lostModuleName), string.Format("{1} is expected to depend on {0}.", lostModuleName, foundModuleName)); 424 424 + Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 425 425 + 426 426 + // does SAM contain the lost module? 427 427 + var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 428 428 + Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 429 429 + Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 430 430 + // ReSharper restore PossibleNullReferenceException 431 431 + } 432 432 + } 433 433 + 434 434 + [Test] 435 435 + public void RelativeDependency() 436 436 + { 437 437 + const string pathFound = "stack/found.pxs"; 438 438 + const string pathLost = "stack/lost.pxs"; 439 439 + using (MockFile(pathFound, "name found;references{lost}")) 440 440 + using (MockFile(pathLost, "name lost;")) 441 441 + { 442 442 + var emptyCount = Sam.TargetDescriptions.Count; 443 443 + var desc = 444 444 + Sam.AssembleAsync( 445 445 + Source.FromString(@"name finder;references{""./stack/found.pxs""};"), CancellationToken.None).Result; 446 446 + Assert.That(desc, Is.Not.Null); 447 447 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 448 448 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 449 449 + 450 450 + // Does the primary module depend on lost and found? 451 451 + var foundModuleName = new ModuleName("found", new Version(0, 0)); 452 452 + var lostModuleName = new ModuleName("lost", new Version(0, 0)); 453 453 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 454 454 + Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 455 455 + 456 456 + // Does SAM contain the found module 457 457 + var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 458 458 + Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 459 459 + // ReSharper disable PossibleNullReferenceException 460 460 + Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 461 461 + // ReSharper restore PossibleNullReferenceException 462 462 + Assert.That(foundTarget.Dependencies, Contains.Item(lostModuleName), string.Format("found module expected to depend on {0}.", lostModuleName)); 463 463 + 464 464 + // does SAM contain the lost module? 465 465 + var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 466 466 + Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 467 467 + // ReSharper disable PossibleNullReferenceException 468 468 + Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 469 469 + // ReSharper restore PossibleNullReferenceException 470 470 + 471 471 + Assert.That(Sam.TargetDescriptions.Count,Is.EqualTo(emptyCount+3), "There should be exactly three new modules: finder, lost and found."); 472 472 + } 473 473 + } 474 474 + 475 475 + [Test] 476 476 + public void FindProvided() 477 477 + { 478 478 + const string pathFound = "found.pxs"; 479 479 + const string pathLost = "lost.pxs"; 480 480 + 481 481 + // Provide the module lost to the SAM ahead of time, fully resolved 482 482 + var lostModuleName = new ModuleName("lost", new Version(0, 0)); 483 483 + Sam.TargetDescriptions.Add(new ManualTargetDescription(lostModuleName, Source.FromString("name: lost;"), 484 484 + pathLost, Enumerable.Empty<ModuleName>())); 485 485 + 486 486 + // Have module found short-circuit when resolving lost 487 487 + using (MockFile(pathFound, "name found;references{lost}")) 488 488 + { 489 489 + var desc = 490 490 + Sam.AssembleAsync( 491 491 + Source.FromString(@"name finder;references{found};"), CancellationToken.None).Result; 492 492 + Assert.That(desc, Is.Not.Null); 493 493 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 494 494 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 495 495 + 496 496 + // Does the primary module depend on lost? 497 497 + var foundModuleName = new ModuleName("found", new Version(0, 0)); 498 498 + 499 499 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 500 500 + Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 501 501 + 502 502 + // Does SAM contain the found module? 503 503 + var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 504 504 + Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 505 505 + Debug.Assert(foundTarget != null); 506 506 + 507 507 + // Does found depend on lost? 508 508 + // ReSharper disable PossibleNullReferenceException 509 509 + Assert.That(foundTarget.Dependencies, Contains.Item(lostModuleName), string.Format("{1} is expected to depend on {0}.", lostModuleName, foundModuleName)); 510 510 + Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 511 511 + 512 512 + // does SAM contain the lost module? 513 513 + var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 514 514 + Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 515 515 + Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 516 516 + // ReSharper restore PossibleNullReferenceException 517 517 + } 518 518 + } 519 519 + 520 520 + [Test] 521 521 + public void DiamondDependency() 522 522 + { 523 523 + const string pathFound = "found.pxs"; 524 524 + const string pathLost = "lost.pxs"; 525 525 + const string pathBase = "base.pxs"; 526 526 + using (MockFile(pathFound, "name found;references{base}")) 527 527 + using (MockFile(pathLost, "name lost;references{base}")) 528 528 + using(MockFile(pathBase,"name base;")) 529 529 + { 530 530 + var desc = 531 531 + Sam.AssembleAsync( 532 532 + Source.FromString(@"name finder;references{lost,found};"), CancellationToken.None).Result; 533 533 + Assert.That(desc, Is.Not.Null); 534 534 + Assert.That(desc.BuildMessages, Is.Empty, "Should not have build (error) messages"); 535 535 + Assert.That(desc.Name, Is.EqualTo(new ModuleName("finder", new Version(0, 0)))); 536 536 + 537 537 + // Does the primary module depend on lost and found? 538 538 + var foundModuleName = new ModuleName("found", new Version(0, 0)); 539 539 + var lostModuleName = new ModuleName("lost", new Version(0, 0)); 540 540 + var baseModuelName = new ModuleName("base", new Version(0, 0)); 541 541 + Assert.That(desc.Dependencies.Count, Is.GreaterThanOrEqualTo(1), "Primary should have at least one dependency."); 542 542 + Assert.That(desc.Dependencies, Contains.Item(foundModuleName), string.Format("Primary is expected to depend on {0}.", foundModuleName)); 543 543 + Assert.That(desc.Dependencies, Contains.Item(lostModuleName), string.Format("Primary is expected to depend on {0}.", lostModuleName)); 544 544 + 545 545 + // Does SAM contain the found module? 546 546 + var foundTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(foundModuleName)); 547 547 + Assert.That(foundTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", foundModuleName)); 548 548 + Debug.Assert(foundTarget != null); 549 549 + 550 550 + // Does found depend on base? 551 551 + // ReSharper disable PossibleNullReferenceException 552 552 + Assert.That(foundTarget.Dependencies, Contains.Item(baseModuelName), string.Format("{1} is expected to depend on {0}.", baseModuelName, foundModuleName)); 553 553 + Assert.That(foundTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", foundModuleName)); 554 554 + 555 555 + // does SAM contain the lost module? 556 556 + var lostTarget = Sam.TargetDescriptions.FirstOrDefault(td => td.Name.Equals(lostModuleName)); 557 557 + Assert.That(lostTarget, Is.Not.Null, string.Format("Expected a target description of {0} in SAM.", lostModuleName)); 558 558 + Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostModuleName)); 559 559 + // ReSharper restore PossibleNullReferenceException 560 560 + 561 561 + Assert.That(lostTarget.Dependencies, Contains.Item(baseModuelName), string.Format("{1} is expected to depend on {0}.", baseModuelName, lostTarget)); 562 562 + Assert.That(lostTarget.BuildMessages, Is.Empty, string.Format("{0} should not have build (error) messages", lostTarget)); 563 563 + } 564 564 + } 565 565 + } 566 566 }

+1 -1

PrexoniteTests/Tests/ShellExtensions.cs

Reviewed

··· 253 253 return x + y - z; 254 254 } 255 255 "); 256 256 - var x = 15; 256 256 + const int x = 15; 257 257 Expect(x + (-x) - (-x), x); 258 258 } 259 259

+1256 -1262

PrexoniteTests/Tests/Translation.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Collections.Generic; 28 28 - using System.IO; 29 29 - using System.Linq; 30 30 - using JetBrains.Annotations; 31 31 - using Moq; 32 32 - using NUnit.Framework; 33 33 - using Prexonite; 34 34 - using Prexonite.Commands; 35 35 - using Prexonite.Compiler; 36 36 - using Prexonite.Compiler.Ast; 37 37 - using Prexonite.Compiler.Build; 38 38 - using Prexonite.Compiler.Symbolic; 39 39 - using Prexonite.Modular; 40 40 - using Prexonite.Types; 41 41 - 42 42 - namespace PrexoniteTests.Tests 43 43 - { 44 44 - public class Translation : VMTestsBase 45 45 - { 46 46 - [Test] 47 47 - public void SimpleSwitchMetaEntry() 48 48 - { 49 49 - Compile( 50 50 - @" 51 51 - globalSwitch; 52 52 - is gloS; 53 53 - is not gloS2; 54 54 - not glos3; 55 55 - 56 56 - function main()[loc] 57 57 - { 58 58 - 59 59 - } 60 60 - 61 61 - function main2 [loc2; 62 62 - loc3; 63 63 - not loc4] 64 64 - { 65 65 - } 66 66 - 67 67 - "); 68 68 - 69 69 - var main = target.Functions["main"]; 70 70 - var main2 = target.Functions["main2"]; 71 71 - 72 72 - //Global entries 73 73 - Assert.That(target, Meta.ContainsExact("globalSwitch", true)); 74 74 - Assert.That(target, Meta.ContainsExact("gloS", true)); 75 75 - Assert.That(target, Meta.ContainsExact("gloS2", false)); 76 76 - Assert.That(target, Meta.ContainsExact("glos3", false)); 77 77 - 78 78 - //First function 79 79 - Assert.That(main, Is.Not.Null); 80 80 - Assert.That(main, Meta.ContainsExact("loc", true)); 81 81 - 82 82 - //Second function 83 83 - Assert.That(main2, Is.Not.Null); 84 84 - Assert.That(main2, Meta.ContainsExact("loc2", true)); 85 85 - Assert.That(main2, Meta.ContainsExact("loc3", true)); 86 86 - Assert.That(main2, Meta.ContainsExact("loc4", false)); 87 87 - } 88 88 - 89 89 - [Test] 90 90 - public void TrailingCommaMetaList() 91 91 - { 92 92 - Compile(@" 93 93 - glob {1,2,3,}; 94 94 - 95 95 - function main [loc {1,2,3,}] 96 96 - {} 97 97 - 98 98 - "); 99 99 - 100 100 - var entry = new MetaEntry(new MetaEntry[] {"1", "2", "3"}); 101 101 - 102 102 - Assert.That(target, Meta.Contains("glob", entry)); 103 103 - var main = target.Functions["main"]; 104 104 - 105 105 - Assert.That(main, Is.Not.Null); 106 106 - Assert.That(main, Meta.Contains("loc", entry)); 107 107 - } 108 108 - 109 109 - [Test] 110 110 - public void TrailingCommaListLiteral() 111 111 - { 112 112 - Compile(@" 113 113 - function main = [1,2,3,]; 114 114 - "); 115 115 - 116 116 - Expect(new List<PValue> {1, 2, 3}); 117 117 - } 118 118 - 119 119 - [Test] 120 120 - public void TrailingCommaHashLiteral() 121 121 - { 122 122 - Compile( 123 123 - @" 124 124 - function main(ks,vs) 125 125 - { 126 126 - var h = {1: ""a"", 2: ""b"", 3: ""c"",}; 127 127 - var r = """"; 128 128 - for(var i = 0; i < ks.Count; i++) 129 129 - if(h.ContainsKey(ks[i]) and h[ks[i]] == vs[i]) 130 130 - r += ""1""; 131 131 - else 132 132 - r += ""0""; 133 133 - return r; 134 134 - } 135 135 - "); 136 136 - 137 137 - Expect("110101", (PValue) new List<PValue> {1, 2, 4, 3, 2, 1}, 138 138 - (PValue) new List<PValue> {"a", "b", "d", "c", "a", "a"}); 139 139 - } 140 140 - 141 141 - [Test] 142 142 - public void TrailingArgumentList() 143 143 - { 144 144 - Compile( 145 145 - @" 146 146 - function f(a,b,) = a + 2*b; 147 147 - function main(x,y) 148 148 - { 149 149 - return f(x,y,); 150 150 - } 151 151 - "); 152 152 - 153 153 - Expect(2 + 6, 2, 3); 154 154 - } 155 155 - 156 156 - [Test] 157 157 - public void SuppressSymbols() 158 158 - { 159 159 - var ldr = 160 160 - Compile( 161 161 - @" 162 162 - function g = 5; 163 163 - var f = 7; 164 164 - 165 165 - var g[\sps] = 3; 166 166 - 167 167 - function f as p(x) [\sps] 168 168 - { 169 169 - declare var g; 170 170 - return g*x; 171 171 - } 172 172 - 173 173 - // At this point, we should have 174 174 - // g -> function g 175 175 - // f -> variable f 176 176 - // p -> function f 177 177 - 178 178 - function main(x) 179 179 - { 180 180 - var f' = f; 181 181 - 182 182 - declare function f; 183 183 - return g + f' + f(x); 184 184 - } 185 185 - "); 186 186 - 187 187 - Expect(3*2 + 5 + 7, 2); 188 188 - Expect(3*11 + 5 + 7, 11); 189 189 - 190 190 - var mn = ldr.ParentApplication.Module.Name; 191 191 - 192 192 - { 193 193 - Assert.That(ldr.TopLevelSymbols.Contains("f"), Is.True, 194 194 - "Symbol table must contain an entry for 'f'."); 195 195 - var entry = LookupSymbolEntry(ldr.TopLevelSymbols,"f"); 196 196 - Assert.That(entry,Is.InstanceOf<DereferenceSymbol>()); 197 197 - var deref = (DereferenceSymbol) entry; 198 198 - Assert.That(deref.InnerSymbol,Is.InstanceOf<ReferenceSymbol>()); 199 199 - var refSym = (ReferenceSymbol) deref.InnerSymbol; 200 200 - Assert.That(refSym.Entity,Is.InstanceOf<EntityRef.Variable.Global>()); 201 201 - EntityRef.Variable.Global globVar; 202 202 - refSym.Entity.TryGetGlobalVariable(out globVar); 203 203 - Assert.That(globVar,Is.EqualTo(EntityRef.Variable.Global.Create("f",mn))); 204 204 - } 205 205 - 206 206 - { 207 207 - Assert.That(ldr.TopLevelSymbols.Contains("g"), Is.True, 208 208 - "Symbol table must contain an entry for 'g'."); 209 209 - var entry = LookupSymbolEntry(ldr.TopLevelSymbols, "g"); 210 210 - Assert.That(entry, Is.InstanceOf<DereferenceSymbol>()); 211 211 - var deref = (DereferenceSymbol)entry; 212 212 - Assert.That(deref.InnerSymbol, Is.InstanceOf<ReferenceSymbol>()); 213 213 - var refSym = (ReferenceSymbol)deref.InnerSymbol; 214 214 - Assert.That(refSym.Entity, Is.InstanceOf<EntityRef.Function>()); 215 215 - EntityRef.Function func; 216 216 - refSym.Entity.TryGetFunction(out func); 217 217 - Assert.That(func, Is.EqualTo(EntityRef.Function.Create("g",mn))); 218 218 - } 219 219 - 220 220 - { 221 221 - Assert.That(ldr.TopLevelSymbols.Contains("p"), Is.True, 222 222 - "Symbol table must contain an entry for 'p'."); 223 223 - var entry = LookupSymbolEntry(ldr.TopLevelSymbols, "p"); 224 224 - Assert.That(entry, Is.InstanceOf<DereferenceSymbol>()); 225 225 - var deref = (DereferenceSymbol)entry; 226 226 - Assert.That(deref.InnerSymbol, Is.InstanceOf<ReferenceSymbol>()); 227 227 - var refSym = (ReferenceSymbol)deref.InnerSymbol; 228 228 - Assert.That(refSym.Entity, Is.InstanceOf<EntityRef.Function>()); 229 229 - EntityRef.Function func; 230 230 - refSym.Entity.TryGetFunction(out func); 231 231 - Assert.That(func, Is.EqualTo(EntityRef.Function.Create("f",mn))); 232 232 - } 233 233 - } 234 234 - 235 235 - [Test] 236 236 - public void AppendRightLocalFunc() 237 237 - { 238 238 - Compile(@" 239 239 - function main() 240 240 - { 241 241 - var ys = []; 242 242 - coroutine trace(t,xs) 243 243 - { 244 244 - foreach(var x in xs) 245 245 - { 246 246 - ys[] = t:x; 247 247 - yield x; 248 248 - } 249 249 - } 250 250 - ([1,2]) >> trace(33) >> all >> println; 251 251 - return (var args >> trace(77) >> map(?~String) >> foldl((l,r) => l + "" "" + r, """")) + ys; 252 252 - } 253 253 - "); 254 254 - Expect(" 1 2 3 4 5 6 7[ 33: 1, 33: 2, 77: 1, 77: 2, 77: 3, 77: 4, 77: 5, 77: 6, 77: 7 ]",1,2,3,4,5,6,7); 255 255 - } 256 256 - 257 257 - [Test] 258 258 - public void TestPsrTestRunSingleTest() 259 259 - { 260 260 - Compile(@"function test\run_single_test as run_single_test(testFunc) 261 261 - { 262 262 - var t = new Structure; 263 263 - t.\(""test"") = testFunc; 264 264 - try 265 265 - { 266 266 - testFunc.(); 267 267 - return true: t; 268 268 - } 269 269 - catch(var e) 270 270 - { 271 271 - t.\(""e"") = e; 272 272 - return false: t; 273 273 - } 274 274 - } 275 275 - 276 276 - function main() 277 277 - { 278 278 - var tp = run_single_test(() => 15); 279 279 - return ""$(tp.Key):$(tp.Value.test.Id)""; 280 280 - }"); 281 281 - 282 282 - Expect("True:main\\0"); 283 283 - } 284 284 - 285 285 - [Test] 286 286 - public void TestPsrAst3WithPos() 287 287 - { 288 288 - Compile(@" 289 289 - function ast3\withPos(factory,type) [compiler] 290 290 - { 291 291 - var args; 292 292 - var targs = args >> skip(2); 293 293 - 294 294 - if(factory is null) 295 295 - throw ""AST factory cannot be null.""; 296 296 - 297 297 - return call\member(factory,type, targs); 298 298 - }"); 299 299 - var factory = new Mock<IAstFactory>(MockBehavior.Strict); 300 300 - var astPlaceholder = new AstPlaceholder(NoSourcePosition.MissingFileName, NoSourcePosition.Instance.Line, NoSourcePosition.Instance.Column); 301 301 - factory.Setup(f => f.Placeholder(It.IsAny<ISourcePosition>(), 5)) 302 302 - .Returns(astPlaceholder); 303 303 - ExpectNamed("ast3\\withPos", astPlaceholder, sctx.CreateNativePValue(factory.Object), "Placeholder", sctx.CreateNativePValue(NoSourcePosition.Instance), 5); 304 304 - } 305 305 - 306 306 - [Test] 307 307 - public void TestSysDeclaresMacroCommand() 308 308 - { 309 309 - Compile(@"//PRX 310 310 - 311 311 - Name sys; 312 312 - 313 313 - declare( 314 314 - print = ref command ""print"", 315 315 - println = ref command ""println"", 316 316 - meta = ref command ""meta"", 317 317 - boxed = ref command ""boxed"", 318 318 - concat = ref command ""concat"", 319 319 - map = ref command ""map"", 320 320 - select = ref command ""select"", 321 321 - foldl = ref command ""foldl"", 322 322 - foldr = ref command ""foldr"", 323 323 - dispose = ref command ""dispose"", 324 324 - call = expand macro command ""call"", 325 325 - call\perform = ref command ""call\\perform"", 326 326 - thunk = ref command ""thunk"", 327 327 - asthunk = ref command ""asthunk"", 328 328 - force = ref command ""force"", 329 329 - toseq = ref command ""toseq"", 330 330 - call\member = expand macro command ""call\\member"", 331 331 - call\member\perform = ref command ""call\\member\\perform"", 332 332 - caller = ref command ""caller"", 333 333 - pair = ref command ""pair"", 334 334 - unbind = ref command ""unbind"", 335 335 - sort = ref command ""sort"", 336 336 - orderby = ref command ""orderby"", 337 337 - LoadAssembly = ref command ""LoadAssembly"", 338 338 - debug = ref command ""debug"", 339 339 - setcenter = ref command ""setcenter"", 340 340 - setleft = ref command ""setleft"", 341 341 - setright = ref command ""setright"", 342 342 - all = ref command ""all"", 343 343 - where = ref command ""where"", 344 344 - skip = ref command ""skip"", 345 345 - limit = ref command ""limit"", 346 346 - take = ref command ""take"", 347 347 - abs = ref command ""abs"", 348 348 - ceiling = ref command ""ceiling"", 349 349 - exp = ref command ""exp"", 350 350 - floor = ref command ""floor"", 351 351 - log = ref command ""log"", 352 352 - max = ref command ""max"", 353 353 - min = ref command ""min"", 354 354 - pi = ref command ""pi"", 355 355 - round = ref command ""round"", 356 356 - sin = ref command ""sin"", 357 357 - cos = ref command ""cos"", 358 358 - sqrt = ref command ""sqrt"", 359 359 - tan = ref command ""tan"", 360 360 - char = ref command ""char"", 361 361 - count = ref command ""count"", 362 362 - distinct = ref command ""distinct"", 363 363 - union = ref command ""union"", 364 364 - unique = ref command ""unique"", 365 365 - frequency = ref command ""frequency"", 366 366 - groupby = ref command ""groupby"", 367 367 - intersect = ref command ""intersect"", 368 368 - call\tail = expand macro command ""call\\tail"", 369 369 - call\tail\perform = ref command ""call\\tail\\perform"", 370 370 - list = ref command ""list"", 371 371 - each = ref command ""each"", 372 372 - exists = ref command ""exists"", 373 373 - forall = ref command ""forall"", 374 374 - CompileToCil = ref command ""CompileToCil"", 375 375 - takewhile = ref command ""takewhile"", 376 376 - except = ref command ""except"", 377 377 - range = ref command ""range"", 378 378 - reverse = ref command ""reverse"", 379 379 - headtail = ref command ""headtail"", 380 380 - append = ref command ""append"", 381 381 - sum = ref command ""sum"", 382 382 - contains = ref command ""contains"", 383 383 - chan = ref command ""chan"", 384 384 - call\async = expand macro command ""call\\async"", 385 385 - call\async\perform = ref command ""call\\async\\perform"", 386 386 - async_seq = ref command ""async_seq"", 387 387 - call\sub\perform = ref command ""call\\sub\\perform"", 388 388 - pa\ind = ref command ""pa\\ind"", 389 389 - pa\mem = ref command ""pa\\mem"", 390 390 - pa\ctor = ref command ""pa\\ctor"", 391 391 - pa\check = ref command ""pa\\check"", 392 392 - pa\cast = ref command ""pa\\cast"", 393 393 - pa\smem = ref command ""pa\\smem"", 394 394 - pa\fun\call = ref command ""pa\\fun\\call"", 395 395 - pa\flip\call = ref command ""pa\\flip\\call"", 396 396 - pa\call\star = ref command ""pa\\call\\star"", 397 397 - then = ref command ""then"", 398 398 - id = ref command ""id"", 399 399 - const = ref command ""const"", 400 400 - (+) = ref command ""plus"", 401 401 - (-) = ref command ""minus"", 402 402 - (*) = ref command ""times"", 403 403 - (/) = ref command ""dividedBy"", 404 404 - $mod = ref command ""mod"", 405 405 - (^) = ref command ""raisedTo"", 406 406 - (&) = ref command ""bitwiseAnd"", 407 407 - (|) = ref command ""bitwiseOr"", 408 408 - $xor = ref command ""xor"", 409 409 - (==) = ref command ""isEqualTo"", 410 410 - (!=) = ref command ""isInequalTo"", 411 411 - (>) = ref command ""isGreaterThan"", 412 412 - (>=) = ref command ""isGreaterThanOrEqual"", 413 413 - (<) = ref command ""isLessThan"", 414 414 - (<=) = ref command ""isLessThanOrEqual"", 415 415 - (-.) = ref command ""negation"", 416 416 - $complement = ref command ""complement"", 417 417 - $not = ref command ""not"", 418 418 - create_enumerator = ref command ""create_enumerator"", 419 419 - create_module_name = ref command ""create_module_name"", 420 420 - seqconcat = ref command ""seqconcat"", 421 421 - call\sub = expand macro command ""call\\sub"", 422 422 - call\sub\interpret = expand macro command ""call\\sub\\interpret"", 423 423 - macro\pack = expand macro command ""macro\\pack"", 424 424 - macro\unpack = expand macro command ""macro\\unpack"", 425 425 - macro\reference = expand macro command ""macro\\reference"", 426 426 - call\star = expand macro command ""call\\star"", 427 427 - call\macro = expand macro command ""call\\macro"", 428 428 - call\macro\impl = expand macro command ""call\\macro\\impl"", 429 429 - main = ref function(""main"",""testApplication"",0.0), 430 430 - ); 431 431 - 432 432 - function main(x,y) 433 433 - { 434 434 - return call\member(x,y); 435 435 - } 436 436 - "); 437 437 - 438 438 - var x = new Mock<ISourcePosition>(MockBehavior.Strict); 439 439 - x.SetupGet(s => s.Line).Returns(15); 440 440 - Expect(15,sctx.CreateNativePValue(x.Object),"Line"); 441 441 - } 442 442 - 443 443 - [Test] 444 444 - public void BlockDeclarationOfMacroCommand() 445 445 - { 446 446 - Compile(@" 447 447 - declare macro command call\member; 448 448 - 449 449 - function main(x,y) 450 450 - { 451 451 - return call\member(x,y); 452 452 - } 453 453 - "); 454 454 - var x = new Mock<ISourcePosition>(MockBehavior.Strict); 455 455 - x.SetupGet(s => s.Line).Returns(15); 456 456 - Expect(15, sctx.CreateNativePValue(x.Object), "Line"); 457 457 - } 458 458 - 459 459 - [Test] 460 460 - public void ReferenceToSymbolWithMessage() 461 461 - { 462 462 - var ldr = Compile(@" 463 463 - function t1 = 7; 464 464 - ref t2 = ->t1; 465 465 - declare( 466 466 - t3 = warn(pos(""Translation.cs.pxs"",434,5),""T.tt"",""Hooder"", sym ""t2"") 467 467 - ); 468 468 - 469 469 - function main() 470 470 - { 471 471 - return ->t1 == ->t3; 472 472 - } 473 473 - "); 474 474 - 475 475 - Expect(true); 476 476 - Assert.That(ldr.Warnings.Count,Is.EqualTo(1)); 477 477 - Assert.That(ldr.Warnings[0].MessageClass,Is.EqualTo("T.tt")); 478 478 - } 479 479 - 480 480 - [Test] 481 481 - public void EntityRefToCommand() 482 482 - { 483 483 - var ldr = Compile(@" 484 484 - function f{} 485 485 - var v; 486 486 - ref r; 487 487 - macro m{} 488 488 - 489 489 - function main() 490 490 - { 491 491 - var loc; 492 492 - ref rloc; 493 493 - var sep = ""|""; 494 494 - return """" + entityref_to(f) + sep 495 495 - + entityref_to(v) + sep 496 496 - + entityref_to(->r) + sep 497 497 - + entityref_to(m) + sep 498 498 - + entityref_to(loc) + sep 499 499 - + entityref_to(->rloc) + sep 500 500 - + entityref_to(entityref_to) + sep 501 501 - + entityref_to(print); 502 502 - } 503 503 - "); 504 504 - var nm = ldr.ParentApplication.Module.Name; 505 505 - 506 506 - Expect(rv => 507 507 - { 508 508 - var r = rv.CallToString(sctx).Split('|'); 509 509 - Console.WriteLine(rv); 510 510 - Assert.That(r.Length,Is.EqualTo(8),"Expected return value to consist of 8 elements. Returned {0}",rv); 511 511 - 512 512 - Assert.That(r[0],Is.EqualTo(EntityRef.Function.Create("f",nm).ToString())); 513 513 - Assert.That(r[1], Is.EqualTo(EntityRef.Variable.Global.Create("v", nm).ToString())); 514 514 - Assert.That(r[2], Is.EqualTo(EntityRef.Variable.Global.Create("r", nm).ToString())); 515 515 - Assert.That(r[3], Is.EqualTo(EntityRef.Function.Create("m", nm).ToString())); 516 516 - Assert.That(r[4], Is.EqualTo(EntityRef.Variable.Local.Create("loc").ToString())); 517 517 - Assert.That(r[5], Is.EqualTo(EntityRef.Variable.Local.Create("rloc").ToString())); 518 518 - Assert.That(r[6], Is.EqualTo(EntityRef.MacroCommand.Create("entityref_to").ToString())); 519 519 - Assert.That(r[7], Is.EqualTo(EntityRef.Command.Create("print").ToString())); 520 520 - }); 521 521 - } 522 522 - 523 523 - [Test] 524 524 - public void NamespaceLookup() 525 525 - { 526 526 - var ldr = new Loader(options); 527 527 - Compile(ldr, @" 528 528 - function f = 17; 529 529 - "); 530 530 - Symbol f; 531 531 - if(!ldr.TopLevelSymbols.TryGet("f",out f)) 532 532 - Assert.Fail("Expected module level symbol f to exist."); 533 533 - 534 534 - var scopea = SymbolStore.Create(); 535 535 - scopea.Declare("g",f); 536 536 - var nsa = new MergedNamespace(scopea); 537 537 - var a = Symbol.CreateNamespace(nsa, NoSourcePosition.Instance); 538 538 - ldr.TopLevelSymbols.Declare("a",a); 539 539 - 540 540 - Compile(ldr, @" 541 541 - function main() 542 542 - { 543 543 - return a.g; 544 544 - } 545 545 - "); 546 546 - 547 547 - Expect(17); 548 548 - } 549 549 - 550 550 - [Test] 551 551 - public void NestedNamespaceLookup() 552 552 - { 553 553 - 554 554 - var ldr = new Loader(options); 555 555 - Compile(ldr, @" 556 556 - function f = 17; 557 557 - "); 558 558 - Symbol f; 559 559 - if (!ldr.TopLevelSymbols.TryGet("f", out f)) 560 560 - Assert.Fail("Expected module level symbol f to exist."); 561 561 - 562 562 - var scopea = SymbolStore.Create(); 563 563 - scopea.Declare("g", f); 564 564 - var nsa = new MergedNamespace(scopea); 565 565 - var a = Symbol.CreateNamespace(nsa, NoSourcePosition.Instance); 566 566 - 567 567 - var scopeb = SymbolStore.Create(); 568 568 - scopeb.Declare("a",a); 569 569 - var nsb = new MergedNamespace(scopeb); 570 570 - var b = Symbol.CreateNamespace(nsb, NoSourcePosition.Instance); 571 571 - 572 572 - ldr.TopLevelSymbols.Declare("b",b); 573 573 - 574 574 - Compile(ldr, @" 575 575 - function main() 576 576 - { 577 577 - return b.a.g; 578 578 - } 579 579 - "); 580 580 - 581 581 - Expect(17); 582 582 - } 583 583 - 584 584 - [Test] 585 585 - public void AliasedNamespaceLookup() 586 586 - { 587 587 - 588 588 - var ldr = new Loader(options); 589 589 - Compile(ldr, @" 590 590 - function f = 17; 591 591 - "); 592 592 - Symbol f; 593 593 - if (!ldr.TopLevelSymbols.TryGet("f", out f)) 594 594 - Assert.Fail("Expected module level symbol f to exist."); 595 595 - 596 596 - var scopea = SymbolStore.Create(); 597 597 - scopea.Declare("g", f); 598 598 - var nsa = new MergedNamespace(scopea); 599 599 - var a = Symbol.CreateNamespace(nsa, NoSourcePosition.Instance); 600 600 - 601 601 - var scopeb = SymbolStore.Create(); 602 602 - scopeb.Declare("a", a); 603 603 - var nsb = new MergedNamespace(scopeb); 604 604 - var b = Symbol.CreateNamespace(nsb, NoSourcePosition.Instance); 605 605 - 606 606 - ldr.TopLevelSymbols.Declare("b", b); 607 607 - 608 608 - Compile(ldr, @" 609 609 - declare(z = sym(""b"",""a"")); 610 610 - function main() 611 611 - { 612 612 - return z.g; 613 613 - } 614 614 - "); 615 615 - 616 616 - Expect(17); 617 617 - } 618 618 - 619 619 - [Test] 620 620 - public void NamespaceDeclaration() 621 621 - { 622 622 - var ldr = Compile(@" 623 623 - namespace a 624 624 - { 625 625 - function f = 17; 626 626 - } 627 627 - 628 628 - function main = a.f; 629 629 - "); 630 630 - Expect(17); 631 631 - Symbol dummy; 632 632 - Assert.That(ldr.TopLevelSymbols.TryGet("f",out dummy),Is.False,"Existence of symbol f in the global scope"); 633 633 - } 634 634 - 635 635 - [Test] 636 636 - public void SugaredNestedNamespaceDeclaration() 637 637 - { 638 638 - 639 639 - Compile(@" 640 640 - namespace a.b 641 641 - { 642 642 - function f = 17; 643 643 - } 644 644 - 645 645 - function main = a.b.f; 646 646 - "); 647 647 - Expect(17); 648 648 - } 649 649 - 650 650 - [Test] 651 651 - public void NestedNamespaceDeclaration() 652 652 - { 653 653 - 654 654 - Compile(@" 655 655 - namespace a 656 656 - { 657 657 - namespace b 658 658 - { 659 659 - function f = 17; 660 660 - } 661 661 - } 662 662 - 663 663 - function main = a.b.f; 664 664 - "); 665 665 - Expect(17); 666 666 - } 667 667 - 668 668 - [Test] 669 669 - public void TopLevelAccessFromNamespace() 670 670 - { 671 671 - 672 672 - Compile(@" 673 673 - function f = 17; 674 674 - 675 675 - namespace a 676 676 - { 677 677 - function g = f; 678 678 - } 679 679 - 680 680 - function main = a.g; 681 681 - "); 682 682 - Expect(17); 683 683 - } 684 684 - 685 685 - [Test] 686 686 - public void SurroundingAccessFromNamespace() 687 687 - { 688 688 - 689 689 - Compile(@" 690 690 - namespace a 691 691 - { 692 692 - function f = 17; 693 693 - namespace b 694 694 - { 695 695 - function g = f; 696 696 - } 697 697 - } 698 698 - 699 699 - function main = a.b.g; 700 700 - "); 701 701 - Expect(17); 702 702 - } 703 703 - 704 704 - [Test] 705 705 - public void Surrounding2AccessFromNamespace() 706 706 - { 707 707 - 708 708 - Compile(@" 709 709 - namespace a 710 710 - { 711 711 - function f = 17; 712 712 - namespace b 713 713 - { 714 714 - namespace c 715 715 - { 716 716 - function g = f; 717 717 - } 718 718 - } 719 719 - } 720 720 - 721 721 - function main = a.b.c.g; 722 722 - "); 723 723 - Expect(17); 724 724 - } 725 725 - 726 726 - [Test] 727 727 - public void SugarComposeNamespaces() 728 728 - { 729 729 - Compile(@" 730 730 - namespace a.b 731 731 - { 732 732 - function f = 17; 733 733 - } 734 734 - 735 735 - namespace a.c 736 736 - { 737 737 - function g = 3; 738 738 - } 739 739 - 740 740 - function main = a.b.f + a.c.g; 741 741 - "); 742 742 - Expect(20); 743 743 - } 744 744 - 745 745 - [Test] 746 746 - public void SugarNsOverride() 747 747 - { 748 748 - CompileInvalid(@" 749 749 - namespace a 750 750 - { 751 751 - function b = 13; 752 752 - } 753 753 - 754 754 - namespace a.b 755 755 - { 756 756 - function f = 17; 757 757 - } 758 758 - 759 759 - function main = a.b.f; 760 760 - ","Expected","namespace","func"); 761 761 - } 762 762 - 763 763 - [Test] 764 764 - public void DontReExportSurrounding() 765 765 - { 766 766 - CompileInvalid(@" 767 767 - function f = 13; 768 768 - namespace a 769 769 - { 770 770 - function g = 15; 771 771 - } 772 772 - 773 773 - function main = a.f; 774 774 - ","symbol","resolve","f"); 775 775 - 776 776 - } 777 777 - 778 778 - [Test] 779 779 - public void RestoreExportedOnExtend() 780 780 - { 781 781 - Compile(@" 782 782 - namespace a { 783 783 - function f = 13; 784 784 - } 785 785 - 786 786 - namespace a { 787 787 - function g = f+2; 788 788 - } 789 789 - 790 790 - function main = a.g; 791 791 - "); 792 792 - 793 793 - Expect(13+2); 794 794 - } 795 795 - 796 796 - [Test] 797 797 - public void SuppressRestoreExportedOnExtend() 798 798 - { 799 799 - CompileInvalid(@" 800 800 - namespace a { 801 801 - function zz_f = 13; 802 802 - } 803 803 - 804 804 - namespace a 805 805 - import() 806 806 - { 807 807 - function g = zz_f+2; 808 808 - } 809 809 - 810 810 - function main = a.g; 811 811 - ","symbol","resolve","zz_f"); 812 812 - } 813 813 - 814 814 - [Test] 815 815 - public void SimpleNsSugarExtend() 816 816 - { 817 817 - Compile(@" 818 818 - namespace a.c 819 819 - { 820 820 - function f = 17; 821 821 - } 822 822 - 823 823 - namespace a 824 824 - { 825 825 - namespace c 826 826 - { 827 827 - function g = 2; 828 828 - } 829 829 - } 830 830 - 831 831 - function main = a.c.f + a.c.g; 832 832 - "); 833 833 - Expect(17+2); 834 834 - } 835 835 - 836 836 - [Test] 837 837 - public void SugarNsExtend() 838 838 - { 839 839 - Compile(@" 840 840 - namespace a 841 841 - { 842 842 - function b = 13; 843 843 - } 844 844 - 845 845 - namespace a.c 846 846 - { 847 847 - function f = 17; 848 848 - } 849 849 - 850 850 - namespace a 851 851 - { 852 852 - function d = 10; 853 853 - } 854 854 - 855 855 - namespace a 856 856 - { 857 857 - namespace c 858 858 - { 859 859 - function g = 2; 860 860 - } 861 861 - } 862 862 - 863 863 - function main = a.b + a.c.f + a.d + a.c.g; 864 864 - "); 865 865 - 866 866 - Expect(13 + 17 + 10 + 2); 867 867 - } 868 868 - 869 869 - [Test] 870 870 - public void NsPhysical() 871 871 - { 872 872 - SkipStore = true; 873 873 - 874 874 - Compile(@" 875 875 - namespace a 876 876 - { 877 877 - function f = 3; 878 878 - } 879 879 - 880 880 - namespace b 881 881 - { 882 882 - function f = 14; 883 883 - } 884 884 - 885 885 - function main = a.f + b.f; 886 886 - "); 887 887 - 888 888 - Expect(17); 889 889 - } 890 890 - 891 891 - [Test] 892 892 - public void ImportBackgroundConflict() 893 893 - { 894 894 - Compile(@" 895 895 - namespace a { 896 896 - function f = 13; 897 897 - function g = 12; 898 898 - function x = 3; 899 899 - } 900 900 - 901 901 - namespace b { 902 902 - var g = 19; 903 903 - declare(f = absolute sym(""a"",""f"")); 904 904 - function y = 4; 905 905 - } 906 906 - 907 907 - namespace c 908 908 - import a.*, b.* 909 909 - { 910 910 - function s = f + x + y; 911 911 - } 912 912 - 913 913 - function main = c.s; 914 914 - "); 915 915 - 916 916 - Expect(4+3+13); 917 917 - } 918 918 - 919 919 - [Test] 920 920 - public void ImportConflict() 921 921 - { 922 922 - CompileInvalid(@" 923 923 - namespace a 924 924 - { 925 925 - function f = 13; 926 926 - } 927 927 - 928 928 - namespace b 929 929 - { 930 930 - var f = 14; 931 931 - } 932 932 - 933 933 - namespace c 934 934 - import a.*, b.* 935 935 - { 936 936 - function s = f; 937 937 - } 938 938 - 939 939 - function main = c.s; 940 940 - ","incompatible","namespace a","namespace b","symbol f"); 941 941 - } 942 942 - 943 943 - [Test] 944 944 - public void RenameOneAvoidsConflict() 945 945 - { 946 946 - Compile(@" 947 947 - namespace a 948 948 - { 949 949 - function f = 13; 950 950 - } 951 951 - 952 952 - namespace b 953 953 - { 954 954 - var f = 14; 955 955 - } 956 956 - 957 957 - namespace c 958 958 - import a.*, b(f => z) 959 959 - { 960 960 - function s = f + z; 961 961 - } 962 962 - 963 963 - function main = c.s; 964 964 - "); 965 965 - Expect(13+14); 966 966 - } 967 967 - 968 968 - [Test] 969 969 - public void UseMultiplicationAsNamespaceName() 970 970 - { 971 971 - Compile(@" 972 972 - namespace a.(*).c { 973 973 - function f = 3; 974 974 - } 975 975 - 976 976 - namespace b 977 977 - import a.(*).c.f 978 978 - { 979 979 - function g = f; 980 980 - } 981 981 - 982 982 - function main = b.g; 983 983 - "); 984 984 - Expect(3); 985 985 - } 986 986 - 987 987 - [Test] 988 988 - public void UseMultiplicationInExplicitTransfer() 989 989 - { 990 990 - Compile(@" 991 991 - namespace a { 992 992 - function (*) = 3; 993 993 - var gobb = 4; 994 994 - } 995 995 - 996 996 - namespace z { 997 997 - function gobb = 5; 998 998 - } 999 999 - 1000 1000 - namespace b 1001 1001 - import a((*)), z(*) // should import only (*) from a, everything from z 1002 1002 - { 1003 1003 - function g = (*) + gobb; 1004 1004 - } 1005 1005 - 1006 1006 - function main = b.g; 1007 1007 - "); 1008 1008 - } 1009 1009 - 1010 1010 - [Test] 1011 1011 - public void ExplicitWildcardTransfer() 1012 1012 - { 1013 1013 - Compile(@" 1014 1014 - namespace a { function f = 13; } 1015 1015 - namespace b import a(*) 1016 1016 - { function g = f; } 1017 1017 - function main = b.g; 1018 1018 - "); 1019 1019 - 1020 1020 - Expect(13); 1021 1021 - } 1022 1022 - 1023 1023 - [Test] 1024 1024 - public void DropAvoidsConflict() 1025 1025 - { 1026 1026 - Compile(@" 1027 1027 - namespace a 1028 1028 - { 1029 1029 - function f = 13; 1030 1030 - } 1031 1031 - 1032 1032 - namespace b 1033 1033 - { 1034 1034 - var f = 14; 1035 1035 - function g = 12; 1036 1036 - } 1037 1037 - 1038 1038 - namespace c 1039 1039 - import 1040 1040 - a.*, 1041 1041 - b(*, not f) 1042 1042 - { 1043 1043 - function s = f + g; 1044 1044 - } 1045 1045 - 1046 1046 - function main = c.s; 1047 1047 - "); 1048 1048 - Expect(13 + 12); 1049 1049 - } 1050 1050 - 1051 1051 - [Test] 1052 1052 - public void FunctionScopeImport() 1053 1053 - { 1054 1054 - Compile(@" 1055 1055 - namespace a 1056 1056 - { 1057 1057 - function f = 13; 1058 1058 - } 1059 1059 - 1060 1060 - function main namespace import a.f = f; 1061 1061 - "); 1062 1062 - Expect(13); 1063 1063 - } 1064 1064 - 1065 1065 - [Test] 1066 1066 - public void ForwardDeclarationAncientSyntax() 1067 1067 - { 1068 1068 - Compile(@" 1069 1069 - namespace a 1070 1070 - { 1071 1071 - declare function f; 1072 1072 - function g(x) = f(x); 1073 1073 - function f(x) = 2*x; 1074 1074 - } 1075 1075 - 1076 1076 - function main(x) = a.g(x); 1077 1077 - "); 1078 1078 - 1079 1079 - Expect(16,8); 1080 1080 - } 1081 1081 - 1082 1082 - [Test] 1083 1083 - public void ForwardDeclarationOldSyntax() 1084 1084 - { 1085 1085 - Compile(@" 1086 1086 - namespace a 1087 1087 - { 1088 1088 - declare { function: f }; 1089 1089 - function g(x) = f(x); 1090 1090 - function f(x) = 2*x; 1091 1091 - } 1092 1092 - 1093 1093 - function main(x) = a.g(x); 1094 1094 - "); 1095 1095 - 1096 1096 - Expect(16,8); 1097 1097 - } 1098 1098 - 1099 1099 - [Test] 1100 1100 - public void ForwardDeclarationMachineSyntax() 1101 1101 - { 1102 1102 - Compile(@" 1103 1103 - namespace a 1104 1104 - { 1105 1105 - // This forward declaration is not taken as relative to the namesapce. 1106 1106 - // It is intended for machine consumption. 1107 1107 - declare( f = ref function(""f"",""testApplication"",0.0)); 1108 1108 - function g(x) = f(x); 1109 1109 - } 1110 1110 - 1111 1111 - function f(x) = 2*x; 1112 1112 - 1113 1113 - function main(x) = a.g(x); 1114 1114 - "); 1115 1115 - 1116 1116 - Expect(16, 8); 1117 1117 - } 1118 1118 - 1119 1119 - [Test] 1120 1120 - public void ExportInterferenceWithTimesLiteral() 1121 1121 - { 1122 1122 - Compile(@" 1123 1123 - namespace a{var g;} 1124 1124 - namespace b{}export(*),a(g); 1125 1125 - "); 1126 1126 - } 1127 1127 - 1128 1128 - [Test] 1129 1129 - public void AlternateExportAllSyntax() 1130 1130 - { 1131 1131 - Compile(@" 1132 1132 - namespace a{var g;} 1133 1133 - namespace b{}export.*,a(g); 1134 1134 - "); 1135 1135 - } 1136 1136 - 1137 1137 - [Test] 1138 1138 - public void SelfReferenceInVarInit() 1139 1139 - { 1140 1140 - Compile(@" 1141 1141 - namespace a 1142 1142 - { 1143 1143 - var h = 4; 1144 1144 - } 1145 1145 - namespace a{ 1146 1146 - var g = g ?? 15; 1147 1147 - var h = h ?? 3; 1148 1148 - } 1149 1149 - 1150 1150 - function main = a.g+a.h; 1151 1151 - "); 1152 1152 - Expect(15+4); 1153 1153 - } 1154 1154 - 1155 1155 - [Test] 1156 1156 - public void NamespaceExtensionCrossModule() 1157 1157 - { 1158 1158 - var plan = Plan.CreateSelfAssembling(StandardLibraryPreference.None); 1159 1159 - 1160 1160 - plan.Assemble(Source.FromString(@" 1161 1161 - name one; 1162 1162 - namespace a { 1163 1163 - function b = 15; 1164 1164 - } 1165 1165 - ")); 1166 1166 - 1167 1167 - var moduleTwoDesc = plan.Assemble(Source.FromString(@" 1168 1168 - name two; 1169 1169 - references {one}; 1170 1170 - namespace a { 1171 1171 - function c =7; 1172 1172 - } 1173 1173 - ")); 1174 1174 - 1175 1175 - var moduleTwo = plan.Build(moduleTwoDesc.Name); 1176 1176 - Assert.That(moduleTwo.Messages.Where(m => m.Severity == MessageSeverity.Error),Is.Empty,"Modules should compile without any error messages."); 1177 1177 - foreach (var message in moduleTwo.Messages) 1178 1178 - Console.WriteLine(message); 1179 1179 - Assert.That(moduleTwo.Exception,Is.Null); 1180 1180 - 1181 1181 - var symbols = moduleTwo.Symbols; 1182 1182 - Symbol symbol; 1183 1183 - Assert.That(symbols.TryGet("a",out symbol),Is.True,"Expect module two to have a symbol called 'a'"); 1184 1184 - Assert.That(symbol,Is.InstanceOf<NamespaceSymbol>()); 1185 1185 - var nsSym = (NamespaceSymbol) symbol; 1186 1186 - _assumeNotNull(nsSym); 1187 1187 - Assert.That(nsSym.Namespace.TryGet("b",out symbol),"Expect namespace a to contain a symbol b."); 1188 1188 - Assert.That(nsSym.Namespace.TryGet("c",out symbol),"Expect namespace a to contain a symbol c."); 1189 1189 - 1190 1190 - } 1191 1191 - 1192 1192 - [Test] 1193 1193 - public void CommentAtEnd() 1194 1194 - { 1195 1195 - var ldr = new Loader(options); 1196 1196 - var add = new InternalLoadCommand(ldr); 1197 1197 - ldr.ParentEngine.Commands.AddHostCommand("add_internal", add); 1198 1198 - add.VirtualFiles.Add("f1",@" 1199 1199 - function f1() { 1200 1200 - println(""f1 called""); 1201 1201 - // something 1202 1202 - return 15; 1203 1203 - } 1204 1204 - 1205 1205 - //s"); 1206 1206 - Compile(ldr, @" 1207 1207 - declare command add_internal; 1208 1208 - 1209 1209 - function f0() { 1210 1210 - println(""f0 called""); 1211 1211 - /* something else */ 1212 1212 - return 16; 1213 1213 - } 1214 1214 - 1215 1215 - build does add_internal(""f1""); 1216 1216 - 1217 1217 - function main() { 1218 1218 - return f0 + f1; 1219 1219 - } 1220 1220 - "); 1221 1221 - 1222 1222 - Expect(15+16); 1223 1223 - } 1224 1224 - 1225 1225 - [ContractAnnotation("value:null=>halt")] 1226 1226 - private static void _assumeNotNull(object value) 1227 1227 - { 1228 1228 - Assert.That(value,Is.Not.Null); 1229 1229 - } 1230 1230 - 1231 1231 - /// <summary> 1232 1232 - /// A command that works in a fashion very similar to the add and requires commands 1233 1233 - /// that a loader exposes in build blocks. 1234 1234 - /// Needs to be initialized first. 1235 1235 - /// </summary> 1236 1236 - private class InternalLoadCommand : PCommand 1237 1237 - { 1238 1238 - [NotNull] 1239 1239 - private readonly Dictionary<string, string> _virtualFiles = new Dictionary<string, string>(); 1240 1240 - [NotNull] 1241 1241 - private readonly Loader _loaderReference; 1242 1242 - 1243 1243 - public InternalLoadCommand([NotNull] Loader loaderReference) 1244 1244 - { 1245 1245 - _loaderReference = loaderReference; 1246 1246 - } 1247 1247 - 1248 1248 - public Dictionary<string, string> VirtualFiles 1249 1249 - { 1250 1250 - get { return _virtualFiles; } 1251 1251 - } 1252 1252 - 1253 1253 - public override PValue Run(StackContext sctx, PValue[] args) 1254 1254 - { 1255 1255 - var n = args[0].CallToString(sctx); 1256 1256 - var virtualFile = _virtualFiles[n]; 1257 1257 - using(var cr = new StringReader(virtualFile)) 1258 1258 - _loaderReference.LoadFromReader(cr,n); 1259 1259 - return PType.Null; 1260 1260 - } 1261 1261 - } 1262 1262 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Collections.Generic; 28 28 + using System.IO; 29 29 + using System.Linq; 30 30 + using JetBrains.Annotations; 31 31 + using Moq; 32 32 + using NUnit.Framework; 33 33 + using Prexonite; 34 34 + using Prexonite.Commands; 35 35 + using Prexonite.Compiler; 36 36 + using Prexonite.Compiler.Ast; 37 37 + using Prexonite.Compiler.Build; 38 38 + using Prexonite.Compiler.Symbolic; 39 39 + using Prexonite.Modular; 40 40 + using Prexonite.Types; 41 41 + 42 42 + namespace PrexoniteTests.Tests 43 43 + { 44 44 + public class Translation : VMTestsBase 45 45 + { 46 46 + [Test] 47 47 + public void SimpleSwitchMetaEntry() 48 48 + { 49 49 + Compile( 50 50 + @" 51 51 + globalSwitch; 52 52 + is gloS; 53 53 + is not gloS2; 54 54 + not glos3; 55 55 + 56 56 + function main()[loc] 57 57 + { 58 58 + 59 59 + } 60 60 + 61 61 + function main2 [loc2; 62 62 + loc3; 63 63 + not loc4] 64 64 + { 65 65 + } 66 66 + 67 67 + "); 68 68 + 69 69 + var main = target.Functions["main"]; 70 70 + var main2 = target.Functions["main2"]; 71 71 + 72 72 + //Global entries 73 73 + Assert.That(target, Meta.ContainsExact("globalSwitch", true)); 74 74 + Assert.That(target, Meta.ContainsExact("gloS", true)); 75 75 + Assert.That(target, Meta.ContainsExact("gloS2", false)); 76 76 + Assert.That(target, Meta.ContainsExact("glos3", false)); 77 77 + 78 78 + //First function 79 79 + Assert.That(main, Is.Not.Null); 80 80 + Assert.That(main, Meta.ContainsExact("loc", true)); 81 81 + 82 82 + //Second function 83 83 + Assert.That(main2, Is.Not.Null); 84 84 + Assert.That(main2, Meta.ContainsExact("loc2", true)); 85 85 + Assert.That(main2, Meta.ContainsExact("loc3", true)); 86 86 + Assert.That(main2, Meta.ContainsExact("loc4", false)); 87 87 + } 88 88 + 89 89 + [Test] 90 90 + public void TrailingCommaMetaList() 91 91 + { 92 92 + Compile(@" 93 93 + glob {1,2,3,}; 94 94 + 95 95 + function main [loc {1,2,3,}] 96 96 + {} 97 97 + 98 98 + "); 99 99 + 100 100 + var entry = new MetaEntry(new MetaEntry[] {"1", "2", "3"}); 101 101 + 102 102 + Assert.That(target, Meta.Contains("glob", entry)); 103 103 + var main = target.Functions["main"]; 104 104 + 105 105 + Assert.That(main, Is.Not.Null); 106 106 + Assert.That(main, Meta.Contains("loc", entry)); 107 107 + } 108 108 + 109 109 + [Test] 110 110 + public void TrailingCommaListLiteral() 111 111 + { 112 112 + Compile(@" 113 113 + function main = [1,2,3,]; 114 114 + "); 115 115 + 116 116 + Expect(new List<PValue> {1, 2, 3}); 117 117 + } 118 118 + 119 119 + [Test] 120 120 + public void TrailingCommaHashLiteral() 121 121 + { 122 122 + Compile( 123 123 + @" 124 124 + function main(ks,vs) 125 125 + { 126 126 + var h = {1: ""a"", 2: ""b"", 3: ""c"",}; 127 127 + var r = """"; 128 128 + for(var i = 0; i < ks.Count; i++) 129 129 + if(h.ContainsKey(ks[i]) and h[ks[i]] == vs[i]) 130 130 + r += ""1""; 131 131 + else 132 132 + r += ""0""; 133 133 + return r; 134 134 + } 135 135 + "); 136 136 + 137 137 + Expect("110101", (PValue) new List<PValue> {1, 2, 4, 3, 2, 1}, 138 138 + (PValue) new List<PValue> {"a", "b", "d", "c", "a", "a"}); 139 139 + } 140 140 + 141 141 + [Test] 142 142 + public void TrailingArgumentList() 143 143 + { 144 144 + Compile( 145 145 + @" 146 146 + function f(a,b,) = a + 2*b; 147 147 + function main(x,y) 148 148 + { 149 149 + return f(x,y,); 150 150 + } 151 151 + "); 152 152 + 153 153 + Expect(2 + 6, 2, 3); 154 154 + } 155 155 + 156 156 + [Test] 157 157 + public void SuppressSymbols() 158 158 + { 159 159 + var ldr = 160 160 + Compile( 161 161 + @" 162 162 + function g = 5; 163 163 + var f = 7; 164 164 + 165 165 + var g[\sps] = 3; 166 166 + 167 167 + function f as p(x) [\sps] 168 168 + { 169 169 + declare var g; 170 170 + return g*x; 171 171 + } 172 172 + 173 173 + // At this point, we should have 174 174 + // g -> function g 175 175 + // f -> variable f 176 176 + // p -> function f 177 177 + 178 178 + function main(x) 179 179 + { 180 180 + var f' = f; 181 181 + 182 182 + declare function f; 183 183 + return g + f' + f(x); 184 184 + } 185 185 + "); 186 186 + 187 187 + Expect(3*2 + 5 + 7, 2); 188 188 + Expect(3*11 + 5 + 7, 11); 189 189 + 190 190 + var mn = ldr.ParentApplication.Module.Name; 191 191 + 192 192 + { 193 193 + Assert.That(ldr.TopLevelSymbols.Contains("f"), Is.True, 194 194 + "Symbol table must contain an entry for 'f'."); 195 195 + var entry = LookupSymbolEntry(ldr.TopLevelSymbols,"f"); 196 196 + Assert.That(entry,Is.InstanceOf<DereferenceSymbol>()); 197 197 + var deref = (DereferenceSymbol) entry; 198 198 + Assert.That(deref.InnerSymbol,Is.InstanceOf<ReferenceSymbol>()); 199 199 + var refSym = (ReferenceSymbol) deref.InnerSymbol; 200 200 + Assert.That(refSym.Entity,Is.InstanceOf<EntityRef.Variable.Global>()); 201 201 + EntityRef.Variable.Global globVar; 202 202 + refSym.Entity.TryGetGlobalVariable(out globVar); 203 203 + Assert.That(globVar,Is.EqualTo(EntityRef.Variable.Global.Create("f",mn))); 204 204 + } 205 205 + 206 206 + { 207 207 + Assert.That(ldr.TopLevelSymbols.Contains("g"), Is.True, 208 208 + "Symbol table must contain an entry for 'g'."); 209 209 + var entry = LookupSymbolEntry(ldr.TopLevelSymbols, "g"); 210 210 + Assert.That(entry, Is.InstanceOf<DereferenceSymbol>()); 211 211 + var deref = (DereferenceSymbol)entry; 212 212 + Assert.That(deref.InnerSymbol, Is.InstanceOf<ReferenceSymbol>()); 213 213 + var refSym = (ReferenceSymbol)deref.InnerSymbol; 214 214 + Assert.That(refSym.Entity, Is.InstanceOf<EntityRef.Function>()); 215 215 + refSym.Entity.TryGetFunction(out var func); 216 216 + Assert.That(func, Is.EqualTo(EntityRef.Function.Create("g",mn))); 217 217 + } 218 218 + 219 219 + { 220 220 + Assert.That(ldr.TopLevelSymbols.Contains("p"), Is.True, 221 221 + "Symbol table must contain an entry for 'p'."); 222 222 + var entry = LookupSymbolEntry(ldr.TopLevelSymbols, "p"); 223 223 + Assert.That(entry, Is.InstanceOf<DereferenceSymbol>()); 224 224 + var deref = (DereferenceSymbol)entry; 225 225 + Assert.That(deref.InnerSymbol, Is.InstanceOf<ReferenceSymbol>()); 226 226 + var refSym = (ReferenceSymbol)deref.InnerSymbol; 227 227 + Assert.That(refSym.Entity, Is.InstanceOf<EntityRef.Function>()); 228 228 + refSym.Entity.TryGetFunction(out var func); 229 229 + Assert.That(func, Is.EqualTo(EntityRef.Function.Create("f",mn))); 230 230 + } 231 231 + } 232 232 + 233 233 + [Test] 234 234 + public void AppendRightLocalFunc() 235 235 + { 236 236 + Compile(@" 237 237 + function main() 238 238 + { 239 239 + var ys = []; 240 240 + coroutine trace(t,xs) 241 241 + { 242 242 + foreach(var x in xs) 243 243 + { 244 244 + ys[] = t:x; 245 245 + yield x; 246 246 + } 247 247 + } 248 248 + ([1,2]) >> trace(33) >> all >> println; 249 249 + return (var args >> trace(77) >> map(?~String) >> foldl((l,r) => l + "" "" + r, """")) + ys; 250 250 + } 251 251 + "); 252 252 + Expect(" 1 2 3 4 5 6 7[ 33: 1, 33: 2, 77: 1, 77: 2, 77: 3, 77: 4, 77: 5, 77: 6, 77: 7 ]",1,2,3,4,5,6,7); 253 253 + } 254 254 + 255 255 + [Test] 256 256 + public void TestPsrTestRunSingleTest() 257 257 + { 258 258 + Compile(@"function test\run_single_test as run_single_test(testFunc) 259 259 + { 260 260 + var t = new Structure; 261 261 + t.\(""test"") = testFunc; 262 262 + try 263 263 + { 264 264 + testFunc.(); 265 265 + return true: t; 266 266 + } 267 267 + catch(var e) 268 268 + { 269 269 + t.\(""e"") = e; 270 270 + return false: t; 271 271 + } 272 272 + } 273 273 + 274 274 + function main() 275 275 + { 276 276 + var tp = run_single_test(() => 15); 277 277 + return ""$(tp.Key):$(tp.Value.test.Id)""; 278 278 + }"); 279 279 + 280 280 + Expect("True:main\\0"); 281 281 + } 282 282 + 283 283 + [Test] 284 284 + public void TestPsrAst3WithPos() 285 285 + { 286 286 + Compile(@" 287 287 + function ast3\withPos(factory,type) [compiler] 288 288 + { 289 289 + var args; 290 290 + var targs = args >> skip(2); 291 291 + 292 292 + if(factory is null) 293 293 + throw ""AST factory cannot be null.""; 294 294 + 295 295 + return call\member(factory,type, targs); 296 296 + }"); 297 297 + var factory = new Mock<IAstFactory>(MockBehavior.Strict); 298 298 + var astPlaceholder = new AstPlaceholder(NoSourcePosition.MissingFileName, NoSourcePosition.Instance.Line, NoSourcePosition.Instance.Column); 299 299 + factory.Setup(f => f.Placeholder(It.IsAny<ISourcePosition>(), 5)) 300 300 + .Returns(astPlaceholder); 301 301 + ExpectNamed("ast3\\withPos", astPlaceholder, sctx.CreateNativePValue(factory.Object), "Placeholder", sctx.CreateNativePValue(NoSourcePosition.Instance), 5); 302 302 + } 303 303 + 304 304 + [Test] 305 305 + public void TestSysDeclaresMacroCommand() 306 306 + { 307 307 + Compile(@"//PRX 308 308 + 309 309 + Name sys; 310 310 + 311 311 + declare( 312 312 + print = ref command ""print"", 313 313 + println = ref command ""println"", 314 314 + meta = ref command ""meta"", 315 315 + boxed = ref command ""boxed"", 316 316 + concat = ref command ""concat"", 317 317 + map = ref command ""map"", 318 318 + select = ref command ""select"", 319 319 + foldl = ref command ""foldl"", 320 320 + foldr = ref command ""foldr"", 321 321 + dispose = ref command ""dispose"", 322 322 + call = expand macro command ""call"", 323 323 + call\perform = ref command ""call\\perform"", 324 324 + thunk = ref command ""thunk"", 325 325 + asthunk = ref command ""asthunk"", 326 326 + force = ref command ""force"", 327 327 + toseq = ref command ""toseq"", 328 328 + call\member = expand macro command ""call\\member"", 329 329 + call\member\perform = ref command ""call\\member\\perform"", 330 330 + caller = ref command ""caller"", 331 331 + pair = ref command ""pair"", 332 332 + unbind = ref command ""unbind"", 333 333 + sort = ref command ""sort"", 334 334 + orderby = ref command ""orderby"", 335 335 + LoadAssembly = ref command ""LoadAssembly"", 336 336 + debug = ref command ""debug"", 337 337 + setcenter = ref command ""setcenter"", 338 338 + setleft = ref command ""setleft"", 339 339 + setright = ref command ""setright"", 340 340 + all = ref command ""all"", 341 341 + where = ref command ""where"", 342 342 + skip = ref command ""skip"", 343 343 + limit = ref command ""limit"", 344 344 + take = ref command ""take"", 345 345 + abs = ref command ""abs"", 346 346 + ceiling = ref command ""ceiling"", 347 347 + exp = ref command ""exp"", 348 348 + floor = ref command ""floor"", 349 349 + log = ref command ""log"", 350 350 + max = ref command ""max"", 351 351 + min = ref command ""min"", 352 352 + pi = ref command ""pi"", 353 353 + round = ref command ""round"", 354 354 + sin = ref command ""sin"", 355 355 + cos = ref command ""cos"", 356 356 + sqrt = ref command ""sqrt"", 357 357 + tan = ref command ""tan"", 358 358 + char = ref command ""char"", 359 359 + count = ref command ""count"", 360 360 + distinct = ref command ""distinct"", 361 361 + union = ref command ""union"", 362 362 + unique = ref command ""unique"", 363 363 + frequency = ref command ""frequency"", 364 364 + groupby = ref command ""groupby"", 365 365 + intersect = ref command ""intersect"", 366 366 + call\tail = expand macro command ""call\\tail"", 367 367 + call\tail\perform = ref command ""call\\tail\\perform"", 368 368 + list = ref command ""list"", 369 369 + each = ref command ""each"", 370 370 + exists = ref command ""exists"", 371 371 + forall = ref command ""forall"", 372 372 + CompileToCil = ref command ""CompileToCil"", 373 373 + takewhile = ref command ""takewhile"", 374 374 + except = ref command ""except"", 375 375 + range = ref command ""range"", 376 376 + reverse = ref command ""reverse"", 377 377 + headtail = ref command ""headtail"", 378 378 + append = ref command ""append"", 379 379 + sum = ref command ""sum"", 380 380 + contains = ref command ""contains"", 381 381 + chan = ref command ""chan"", 382 382 + call\async = expand macro command ""call\\async"", 383 383 + call\async\perform = ref command ""call\\async\\perform"", 384 384 + async_seq = ref command ""async_seq"", 385 385 + call\sub\perform = ref command ""call\\sub\\perform"", 386 386 + pa\ind = ref command ""pa\\ind"", 387 387 + pa\mem = ref command ""pa\\mem"", 388 388 + pa\ctor = ref command ""pa\\ctor"", 389 389 + pa\check = ref command ""pa\\check"", 390 390 + pa\cast = ref command ""pa\\cast"", 391 391 + pa\smem = ref command ""pa\\smem"", 392 392 + pa\fun\call = ref command ""pa\\fun\\call"", 393 393 + pa\flip\call = ref command ""pa\\flip\\call"", 394 394 + pa\call\star = ref command ""pa\\call\\star"", 395 395 + then = ref command ""then"", 396 396 + id = ref command ""id"", 397 397 + const = ref command ""const"", 398 398 + (+) = ref command ""plus"", 399 399 + (-) = ref command ""minus"", 400 400 + (*) = ref command ""times"", 401 401 + (/) = ref command ""dividedBy"", 402 402 + $mod = ref command ""mod"", 403 403 + (^) = ref command ""raisedTo"", 404 404 + (&) = ref command ""bitwiseAnd"", 405 405 + (|) = ref command ""bitwiseOr"", 406 406 + $xor = ref command ""xor"", 407 407 + (==) = ref command ""isEqualTo"", 408 408 + (!=) = ref command ""isInequalTo"", 409 409 + (>) = ref command ""isGreaterThan"", 410 410 + (>=) = ref command ""isGreaterThanOrEqual"", 411 411 + (<) = ref command ""isLessThan"", 412 412 + (<=) = ref command ""isLessThanOrEqual"", 413 413 + (-.) = ref command ""negation"", 414 414 + $complement = ref command ""complement"", 415 415 + $not = ref command ""not"", 416 416 + create_enumerator = ref command ""create_enumerator"", 417 417 + create_module_name = ref command ""create_module_name"", 418 418 + seqconcat = ref command ""seqconcat"", 419 419 + call\sub = expand macro command ""call\\sub"", 420 420 + call\sub\interpret = expand macro command ""call\\sub\\interpret"", 421 421 + macro\pack = expand macro command ""macro\\pack"", 422 422 + macro\unpack = expand macro command ""macro\\unpack"", 423 423 + macro\reference = expand macro command ""macro\\reference"", 424 424 + call\star = expand macro command ""call\\star"", 425 425 + call\macro = expand macro command ""call\\macro"", 426 426 + call\macro\impl = expand macro command ""call\\macro\\impl"", 427 427 + main = ref function(""main"",""testApplication"",0.0), 428 428 + ); 429 429 + 430 430 + function main(x,y) 431 431 + { 432 432 + return call\member(x,y); 433 433 + } 434 434 + "); 435 435 + 436 436 + var x = new Mock<ISourcePosition>(MockBehavior.Strict); 437 437 + x.SetupGet(s => s.Line).Returns(15); 438 438 + Expect(15,sctx.CreateNativePValue(x.Object),"Line"); 439 439 + } 440 440 + 441 441 + [Test] 442 442 + public void BlockDeclarationOfMacroCommand() 443 443 + { 444 444 + Compile(@" 445 445 + declare macro command call\member; 446 446 + 447 447 + function main(x,y) 448 448 + { 449 449 + return call\member(x,y); 450 450 + } 451 451 + "); 452 452 + var x = new Mock<ISourcePosition>(MockBehavior.Strict); 453 453 + x.SetupGet(s => s.Line).Returns(15); 454 454 + Expect(15, sctx.CreateNativePValue(x.Object), "Line"); 455 455 + } 456 456 + 457 457 + [Test] 458 458 + public void ReferenceToSymbolWithMessage() 459 459 + { 460 460 + var ldr = Compile(@" 461 461 + function t1 = 7; 462 462 + ref t2 = ->t1; 463 463 + declare( 464 464 + t3 = warn(pos(""Translation.cs.pxs"",434,5),""T.tt"",""Hooder"", sym ""t2"") 465 465 + ); 466 466 + 467 467 + function main() 468 468 + { 469 469 + return ->t1 == ->t3; 470 470 + } 471 471 + "); 472 472 + 473 473 + Expect(true); 474 474 + Assert.That(ldr.Warnings.Count,Is.EqualTo(1)); 475 475 + Assert.That(ldr.Warnings[0].MessageClass,Is.EqualTo("T.tt")); 476 476 + } 477 477 + 478 478 + [Test] 479 479 + public void EntityRefToCommand() 480 480 + { 481 481 + var ldr = Compile(@" 482 482 + function f{} 483 483 + var v; 484 484 + ref r; 485 485 + macro m{} 486 486 + 487 487 + function main() 488 488 + { 489 489 + var loc; 490 490 + ref rloc; 491 491 + var sep = ""|""; 492 492 + return """" + entityref_to(f) + sep 493 493 + + entityref_to(v) + sep 494 494 + + entityref_to(->r) + sep 495 495 + + entityref_to(m) + sep 496 496 + + entityref_to(loc) + sep 497 497 + + entityref_to(->rloc) + sep 498 498 + + entityref_to(entityref_to) + sep 499 499 + + entityref_to(print); 500 500 + } 501 501 + "); 502 502 + var nm = ldr.ParentApplication.Module.Name; 503 503 + 504 504 + Expect(rv => 505 505 + { 506 506 + var r = rv.CallToString(sctx).Split('|'); 507 507 + Console.WriteLine(rv); 508 508 + Assert.That((object) r.Length,Is.EqualTo(8),"Expected return value to consist of 8 elements. Returned {0}",rv); 509 509 + 510 510 + Assert.That(r[0], Is.EqualTo(EntityRef.Function.Create("f",nm).ToString())); 511 511 + Assert.That(r[1], Is.EqualTo(EntityRef.Variable.Global.Create("v", nm).ToString())); 512 512 + Assert.That(r[2], Is.EqualTo(EntityRef.Variable.Global.Create("r", nm).ToString())); 513 513 + Assert.That(r[3], Is.EqualTo(EntityRef.Function.Create("m", nm).ToString())); 514 514 + Assert.That(r[4], Is.EqualTo(EntityRef.Variable.Local.Create("loc").ToString())); 515 515 + Assert.That(r[5], Is.EqualTo(EntityRef.Variable.Local.Create("rloc").ToString())); 516 516 + Assert.That(r[6], Is.EqualTo(EntityRef.MacroCommand.Create("entityref_to").ToString())); 517 517 + Assert.That(r[7], Is.EqualTo(EntityRef.Command.Create("print").ToString())); 518 518 + }); 519 519 + } 520 520 + 521 521 + [Test] 522 522 + public void NamespaceLookup() 523 523 + { 524 524 + var ldr = new Loader(options); 525 525 + Compile(ldr, @" 526 526 + function f = 17; 527 527 + "); 528 528 + Symbol f; 529 529 + if(!ldr.TopLevelSymbols.TryGet("f",out f)) 530 530 + Assert.Fail("Expected module level symbol f to exist."); 531 531 + 532 532 + var scopea = SymbolStore.Create(); 533 533 + scopea.Declare("g",f); 534 534 + var nsa = new MergedNamespace(scopea); 535 535 + var a = Symbol.CreateNamespace(nsa, NoSourcePosition.Instance); 536 536 + ldr.TopLevelSymbols.Declare("a",a); 537 537 + 538 538 + Compile(ldr, @" 539 539 + function main() 540 540 + { 541 541 + return a.g; 542 542 + } 543 543 + "); 544 544 + 545 545 + Expect(17); 546 546 + } 547 547 + 548 548 + [Test] 549 549 + public void NestedNamespaceLookup() 550 550 + { 551 551 + 552 552 + var ldr = new Loader(options); 553 553 + Compile(ldr, @" 554 554 + function f = 17; 555 555 + "); 556 556 + Symbol f; 557 557 + if (!ldr.TopLevelSymbols.TryGet("f", out f)) 558 558 + Assert.Fail("Expected module level symbol f to exist."); 559 559 + 560 560 + var scopea = SymbolStore.Create(); 561 561 + scopea.Declare("g", f); 562 562 + var nsa = new MergedNamespace(scopea); 563 563 + var a = Symbol.CreateNamespace(nsa, NoSourcePosition.Instance); 564 564 + 565 565 + var scopeb = SymbolStore.Create(); 566 566 + scopeb.Declare("a",a); 567 567 + var nsb = new MergedNamespace(scopeb); 568 568 + var b = Symbol.CreateNamespace(nsb, NoSourcePosition.Instance); 569 569 + 570 570 + ldr.TopLevelSymbols.Declare("b",b); 571 571 + 572 572 + Compile(ldr, @" 573 573 + function main() 574 574 + { 575 575 + return b.a.g; 576 576 + } 577 577 + "); 578 578 + 579 579 + Expect(17); 580 580 + } 581 581 + 582 582 + [Test] 583 583 + public void AliasedNamespaceLookup() 584 584 + { 585 585 + 586 586 + var ldr = new Loader(options); 587 587 + Compile(ldr, @" 588 588 + function f = 17; 589 589 + "); 590 590 + Symbol f; 591 591 + if (!ldr.TopLevelSymbols.TryGet("f", out f)) 592 592 + Assert.Fail("Expected module level symbol f to exist."); 593 593 + 594 594 + var scopea = SymbolStore.Create(); 595 595 + scopea.Declare("g", f); 596 596 + var nsa = new MergedNamespace(scopea); 597 597 + var a = Symbol.CreateNamespace(nsa, NoSourcePosition.Instance); 598 598 + 599 599 + var scopeb = SymbolStore.Create(); 600 600 + scopeb.Declare("a", a); 601 601 + var nsb = new MergedNamespace(scopeb); 602 602 + var b = Symbol.CreateNamespace(nsb, NoSourcePosition.Instance); 603 603 + 604 604 + ldr.TopLevelSymbols.Declare("b", b); 605 605 + 606 606 + Compile(ldr, @" 607 607 + declare(z = sym(""b"",""a"")); 608 608 + function main() 609 609 + { 610 610 + return z.g; 611 611 + } 612 612 + "); 613 613 + 614 614 + Expect(17); 615 615 + } 616 616 + 617 617 + [Test] 618 618 + public void NamespaceDeclaration() 619 619 + { 620 620 + var ldr = Compile(@" 621 621 + namespace a 622 622 + { 623 623 + function f = 17; 624 624 + } 625 625 + 626 626 + function main = a.f; 627 627 + "); 628 628 + Expect(17); 629 629 + Symbol dummy; 630 630 + Assert.That(ldr.TopLevelSymbols.TryGet("f",out dummy),Is.False,"Existence of symbol f in the global scope"); 631 631 + } 632 632 + 633 633 + [Test] 634 634 + public void SugaredNestedNamespaceDeclaration() 635 635 + { 636 636 + 637 637 + Compile(@" 638 638 + namespace a.b 639 639 + { 640 640 + function f = 17; 641 641 + } 642 642 + 643 643 + function main = a.b.f; 644 644 + "); 645 645 + Expect(17); 646 646 + } 647 647 + 648 648 + [Test] 649 649 + public void NestedNamespaceDeclaration() 650 650 + { 651 651 + 652 652 + Compile(@" 653 653 + namespace a 654 654 + { 655 655 + namespace b 656 656 + { 657 657 + function f = 17; 658 658 + } 659 659 + } 660 660 + 661 661 + function main = a.b.f; 662 662 + "); 663 663 + Expect(17); 664 664 + } 665 665 + 666 666 + [Test] 667 667 + public void TopLevelAccessFromNamespace() 668 668 + { 669 669 + 670 670 + Compile(@" 671 671 + function f = 17; 672 672 + 673 673 + namespace a 674 674 + { 675 675 + function g = f; 676 676 + } 677 677 + 678 678 + function main = a.g; 679 679 + "); 680 680 + Expect(17); 681 681 + } 682 682 + 683 683 + [Test] 684 684 + public void SurroundingAccessFromNamespace() 685 685 + { 686 686 + 687 687 + Compile(@" 688 688 + namespace a 689 689 + { 690 690 + function f = 17; 691 691 + namespace b 692 692 + { 693 693 + function g = f; 694 694 + } 695 695 + } 696 696 + 697 697 + function main = a.b.g; 698 698 + "); 699 699 + Expect(17); 700 700 + } 701 701 + 702 702 + [Test] 703 703 + public void Surrounding2AccessFromNamespace() 704 704 + { 705 705 + 706 706 + Compile(@" 707 707 + namespace a 708 708 + { 709 709 + function f = 17; 710 710 + namespace b 711 711 + { 712 712 + namespace c 713 713 + { 714 714 + function g = f; 715 715 + } 716 716 + } 717 717 + } 718 718 + 719 719 + function main = a.b.c.g; 720 720 + "); 721 721 + Expect(17); 722 722 + } 723 723 + 724 724 + [Test] 725 725 + public void SugarComposeNamespaces() 726 726 + { 727 727 + Compile(@" 728 728 + namespace a.b 729 729 + { 730 730 + function f = 17; 731 731 + } 732 732 + 733 733 + namespace a.c 734 734 + { 735 735 + function g = 3; 736 736 + } 737 737 + 738 738 + function main = a.b.f + a.c.g; 739 739 + "); 740 740 + Expect(20); 741 741 + } 742 742 + 743 743 + [Test] 744 744 + public void SugarNsOverride() 745 745 + { 746 746 + CompileInvalid(@" 747 747 + namespace a 748 748 + { 749 749 + function b = 13; 750 750 + } 751 751 + 752 752 + namespace a.b 753 753 + { 754 754 + function f = 17; 755 755 + } 756 756 + 757 757 + function main = a.b.f; 758 758 + ","Expected","namespace","func"); 759 759 + } 760 760 + 761 761 + [Test] 762 762 + public void DontReExportSurrounding() 763 763 + { 764 764 + CompileInvalid(@" 765 765 + function f = 13; 766 766 + namespace a 767 767 + { 768 768 + function g = 15; 769 769 + } 770 770 + 771 771 + function main = a.f; 772 772 + ","symbol","resolve","f"); 773 773 + 774 774 + } 775 775 + 776 776 + [Test] 777 777 + public void RestoreExportedOnExtend() 778 778 + { 779 779 + Compile(@" 780 780 + namespace a { 781 781 + function f = 13; 782 782 + } 783 783 + 784 784 + namespace a { 785 785 + function g = f+2; 786 786 + } 787 787 + 788 788 + function main = a.g; 789 789 + "); 790 790 + 791 791 + Expect(13+2); 792 792 + } 793 793 + 794 794 + [Test] 795 795 + public void SuppressRestoreExportedOnExtend() 796 796 + { 797 797 + CompileInvalid(@" 798 798 + namespace a { 799 799 + function zz_f = 13; 800 800 + } 801 801 + 802 802 + namespace a 803 803 + import() 804 804 + { 805 805 + function g = zz_f+2; 806 806 + } 807 807 + 808 808 + function main = a.g; 809 809 + ","symbol","resolve","zz_f"); 810 810 + } 811 811 + 812 812 + [Test] 813 813 + public void SimpleNsSugarExtend() 814 814 + { 815 815 + Compile(@" 816 816 + namespace a.c 817 817 + { 818 818 + function f = 17; 819 819 + } 820 820 + 821 821 + namespace a 822 822 + { 823 823 + namespace c 824 824 + { 825 825 + function g = 2; 826 826 + } 827 827 + } 828 828 + 829 829 + function main = a.c.f + a.c.g; 830 830 + "); 831 831 + Expect(17+2); 832 832 + } 833 833 + 834 834 + [Test] 835 835 + public void SugarNsExtend() 836 836 + { 837 837 + Compile(@" 838 838 + namespace a 839 839 + { 840 840 + function b = 13; 841 841 + } 842 842 + 843 843 + namespace a.c 844 844 + { 845 845 + function f = 17; 846 846 + } 847 847 + 848 848 + namespace a 849 849 + { 850 850 + function d = 10; 851 851 + } 852 852 + 853 853 + namespace a 854 854 + { 855 855 + namespace c 856 856 + { 857 857 + function g = 2; 858 858 + } 859 859 + } 860 860 + 861 861 + function main = a.b + a.c.f + a.d + a.c.g; 862 862 + "); 863 863 + 864 864 + Expect(13 + 17 + 10 + 2); 865 865 + } 866 866 + 867 867 + [Test] 868 868 + public void NsPhysical() 869 869 + { 870 870 + SkipStore = true; 871 871 + 872 872 + Compile(@" 873 873 + namespace a 874 874 + { 875 875 + function f = 3; 876 876 + } 877 877 + 878 878 + namespace b 879 879 + { 880 880 + function f = 14; 881 881 + } 882 882 + 883 883 + function main = a.f + b.f; 884 884 + "); 885 885 + 886 886 + Expect(17); 887 887 + } 888 888 + 889 889 + [Test] 890 890 + public void ImportBackgroundConflict() 891 891 + { 892 892 + Compile(@" 893 893 + namespace a { 894 894 + function f = 13; 895 895 + function g = 12; 896 896 + function x = 3; 897 897 + } 898 898 + 899 899 + namespace b { 900 900 + var g = 19; 901 901 + declare(f = absolute sym(""a"",""f"")); 902 902 + function y = 4; 903 903 + } 904 904 + 905 905 + namespace c 906 906 + import a.*, b.* 907 907 + { 908 908 + function s = f + x + y; 909 909 + } 910 910 + 911 911 + function main = c.s; 912 912 + "); 913 913 + 914 914 + Expect(4+3+13); 915 915 + } 916 916 + 917 917 + [Test] 918 918 + public void ImportConflict() 919 919 + { 920 920 + CompileInvalid(@" 921 921 + namespace a 922 922 + { 923 923 + function f = 13; 924 924 + } 925 925 + 926 926 + namespace b 927 927 + { 928 928 + var f = 14; 929 929 + } 930 930 + 931 931 + namespace c 932 932 + import a.*, b.* 933 933 + { 934 934 + function s = f; 935 935 + } 936 936 + 937 937 + function main = c.s; 938 938 + ","incompatible","namespace a","namespace b","symbol f"); 939 939 + } 940 940 + 941 941 + [Test] 942 942 + public void RenameOneAvoidsConflict() 943 943 + { 944 944 + Compile(@" 945 945 + namespace a 946 946 + { 947 947 + function f = 13; 948 948 + } 949 949 + 950 950 + namespace b 951 951 + { 952 952 + var f = 14; 953 953 + } 954 954 + 955 955 + namespace c 956 956 + import a.*, b(f => z) 957 957 + { 958 958 + function s = f + z; 959 959 + } 960 960 + 961 961 + function main = c.s; 962 962 + "); 963 963 + Expect(13+14); 964 964 + } 965 965 + 966 966 + [Test] 967 967 + public void UseMultiplicationAsNamespaceName() 968 968 + { 969 969 + Compile(@" 970 970 + namespace a.(*).c { 971 971 + function f = 3; 972 972 + } 973 973 + 974 974 + namespace b 975 975 + import a.(*).c.f 976 976 + { 977 977 + function g = f; 978 978 + } 979 979 + 980 980 + function main = b.g; 981 981 + "); 982 982 + Expect(3); 983 983 + } 984 984 + 985 985 + [Test] 986 986 + public void UseMultiplicationInExplicitTransfer() 987 987 + { 988 988 + Compile(@" 989 989 + namespace a { 990 990 + function (*) = 3; 991 991 + var gobb = 4; 992 992 + } 993 993 + 994 994 + namespace z { 995 995 + function gobb = 5; 996 996 + } 997 997 + 998 998 + namespace b 999 999 + import a((*)), z(*) // should import only (*) from a, everything from z 1000 1000 + { 1001 1001 + function g = (*) + gobb; 1002 1002 + } 1003 1003 + 1004 1004 + function main = b.g; 1005 1005 + "); 1006 1006 + } 1007 1007 + 1008 1008 + [Test] 1009 1009 + public void ExplicitWildcardTransfer() 1010 1010 + { 1011 1011 + Compile(@" 1012 1012 + namespace a { function f = 13; } 1013 1013 + namespace b import a(*) 1014 1014 + { function g = f; } 1015 1015 + function main = b.g; 1016 1016 + "); 1017 1017 + 1018 1018 + Expect(13); 1019 1019 + } 1020 1020 + 1021 1021 + [Test] 1022 1022 + public void DropAvoidsConflict() 1023 1023 + { 1024 1024 + Compile(@" 1025 1025 + namespace a 1026 1026 + { 1027 1027 + function f = 13; 1028 1028 + } 1029 1029 + 1030 1030 + namespace b 1031 1031 + { 1032 1032 + var f = 14; 1033 1033 + function g = 12; 1034 1034 + } 1035 1035 + 1036 1036 + namespace c 1037 1037 + import 1038 1038 + a.*, 1039 1039 + b(*, not f) 1040 1040 + { 1041 1041 + function s = f + g; 1042 1042 + } 1043 1043 + 1044 1044 + function main = c.s; 1045 1045 + "); 1046 1046 + Expect(13 + 12); 1047 1047 + } 1048 1048 + 1049 1049 + [Test] 1050 1050 + public void FunctionScopeImport() 1051 1051 + { 1052 1052 + Compile(@" 1053 1053 + namespace a 1054 1054 + { 1055 1055 + function f = 13; 1056 1056 + } 1057 1057 + 1058 1058 + function main namespace import a.f = f; 1059 1059 + "); 1060 1060 + Expect(13); 1061 1061 + } 1062 1062 + 1063 1063 + [Test] 1064 1064 + public void ForwardDeclarationAncientSyntax() 1065 1065 + { 1066 1066 + Compile(@" 1067 1067 + namespace a 1068 1068 + { 1069 1069 + declare function f; 1070 1070 + function g(x) = f(x); 1071 1071 + function f(x) = 2*x; 1072 1072 + } 1073 1073 + 1074 1074 + function main(x) = a.g(x); 1075 1075 + "); 1076 1076 + 1077 1077 + Expect(16,8); 1078 1078 + } 1079 1079 + 1080 1080 + [Test] 1081 1081 + public void ForwardDeclarationOldSyntax() 1082 1082 + { 1083 1083 + Compile(@" 1084 1084 + namespace a 1085 1085 + { 1086 1086 + declare { function: f }; 1087 1087 + function g(x) = f(x); 1088 1088 + function f(x) = 2*x; 1089 1089 + } 1090 1090 + 1091 1091 + function main(x) = a.g(x); 1092 1092 + "); 1093 1093 + 1094 1094 + Expect(16,8); 1095 1095 + } 1096 1096 + 1097 1097 + [Test] 1098 1098 + public void ForwardDeclarationMachineSyntax() 1099 1099 + { 1100 1100 + Compile(@" 1101 1101 + namespace a 1102 1102 + { 1103 1103 + // This forward declaration is not taken as relative to the namesapce. 1104 1104 + // It is intended for machine consumption. 1105 1105 + declare( f = ref function(""f"",""testApplication"",0.0)); 1106 1106 + function g(x) = f(x); 1107 1107 + } 1108 1108 + 1109 1109 + function f(x) = 2*x; 1110 1110 + 1111 1111 + function main(x) = a.g(x); 1112 1112 + "); 1113 1113 + 1114 1114 + Expect(16, 8); 1115 1115 + } 1116 1116 + 1117 1117 + [Test] 1118 1118 + public void ExportInterferenceWithTimesLiteral() 1119 1119 + { 1120 1120 + Compile(@" 1121 1121 + namespace a{var g;} 1122 1122 + namespace b{}export(*),a(g); 1123 1123 + "); 1124 1124 + } 1125 1125 + 1126 1126 + [Test] 1127 1127 + public void AlternateExportAllSyntax() 1128 1128 + { 1129 1129 + Compile(@" 1130 1130 + namespace a{var g;} 1131 1131 + namespace b{}export.*,a(g); 1132 1132 + "); 1133 1133 + } 1134 1134 + 1135 1135 + [Test] 1136 1136 + public void SelfReferenceInVarInit() 1137 1137 + { 1138 1138 + Compile(@" 1139 1139 + namespace a 1140 1140 + { 1141 1141 + var h = 4; 1142 1142 + } 1143 1143 + namespace a{ 1144 1144 + var g = g ?? 15; 1145 1145 + var h = h ?? 3; 1146 1146 + } 1147 1147 + 1148 1148 + function main = a.g+a.h; 1149 1149 + "); 1150 1150 + Expect(15+4); 1151 1151 + } 1152 1152 + 1153 1153 + [Test] 1154 1154 + public void NamespaceExtensionCrossModule() 1155 1155 + { 1156 1156 + var plan = Plan.CreateSelfAssembling(StandardLibraryPreference.None); 1157 1157 + 1158 1158 + plan.Assemble(Source.FromString(@" 1159 1159 + name one; 1160 1160 + namespace a { 1161 1161 + function b = 15; 1162 1162 + } 1163 1163 + ")); 1164 1164 + 1165 1165 + var moduleTwoDesc = plan.Assemble(Source.FromString(@" 1166 1166 + name two; 1167 1167 + references {one}; 1168 1168 + namespace a { 1169 1169 + function c =7; 1170 1170 + } 1171 1171 + ")); 1172 1172 + 1173 1173 + var moduleTwo = plan.Build(moduleTwoDesc.Name); 1174 1174 + Assert.That(moduleTwo.Messages.Where(m => m.Severity == MessageSeverity.Error),Is.Empty,"Modules should compile without any error messages."); 1175 1175 + foreach (var message in moduleTwo.Messages) 1176 1176 + Console.WriteLine(message); 1177 1177 + Assert.That(moduleTwo.Exception,Is.Null); 1178 1178 + 1179 1179 + var symbols = moduleTwo.Symbols; 1180 1180 + Assert.That(symbols.TryGet("a",out var symbol),Is.True,"Expect module two to have a symbol called 'a'"); 1181 1181 + Assert.That(symbol,Is.InstanceOf<NamespaceSymbol>()); 1182 1182 + var nsSym = (NamespaceSymbol) symbol; 1183 1183 + _assumeNotNull(nsSym); 1184 1184 + Assert.That(nsSym.Namespace.TryGet("b",out symbol),"Expect namespace a to contain a symbol b."); 1185 1185 + Assert.That(nsSym.Namespace.TryGet("c",out symbol),"Expect namespace a to contain a symbol c."); 1186 1186 + 1187 1187 + } 1188 1188 + 1189 1189 + [Test] 1190 1190 + public void CommentAtEnd() 1191 1191 + { 1192 1192 + var ldr = new Loader(options); 1193 1193 + var add = new InternalLoadCommand(ldr); 1194 1194 + ldr.ParentEngine.Commands.AddHostCommand("add_internal", add); 1195 1195 + add.VirtualFiles.Add("f1",@" 1196 1196 + function f1() { 1197 1197 + println(""f1 called""); 1198 1198 + // something 1199 1199 + return 15; 1200 1200 + } 1201 1201 + 1202 1202 + //s"); 1203 1203 + Compile(ldr, @" 1204 1204 + declare command add_internal; 1205 1205 + 1206 1206 + function f0() { 1207 1207 + println(""f0 called""); 1208 1208 + /* something else */ 1209 1209 + return 16; 1210 1210 + } 1211 1211 + 1212 1212 + build does add_internal(""f1""); 1213 1213 + 1214 1214 + function main() { 1215 1215 + return f0 + f1; 1216 1216 + } 1217 1217 + "); 1218 1218 + 1219 1219 + Expect(15+16); 1220 1220 + } 1221 1221 + 1222 1222 + [ContractAnnotation("value:null=>halt")] 1223 1223 + private static void _assumeNotNull(object value) 1224 1224 + { 1225 1225 + Assert.That(value,Is.Not.Null); 1226 1226 + } 1227 1227 + 1228 1228 + /// <summary> 1229 1229 + /// A command that works in a fashion very similar to the add and requires commands 1230 1230 + /// that a loader exposes in build blocks. 1231 1231 + /// Needs to be initialized first. 1232 1232 + /// </summary> 1233 1233 + private class InternalLoadCommand : PCommand 1234 1234 + { 1235 1235 + [NotNull] 1236 1236 + private readonly Dictionary<string, string> _virtualFiles = new Dictionary<string, string>(); 1237 1237 + [NotNull] 1238 1238 + private readonly Loader _loaderReference; 1239 1239 + 1240 1240 + public InternalLoadCommand([NotNull] Loader loaderReference) 1241 1241 + { 1242 1242 + _loaderReference = loaderReference; 1243 1243 + } 1244 1244 + 1245 1245 + public Dictionary<string, string> VirtualFiles => _virtualFiles; 1246 1246 + 1247 1247 + public override PValue Run(StackContext sctx, PValue[] args) 1248 1248 + { 1249 1249 + var n = args[0].CallToString(sctx); 1250 1250 + var virtualFile = _virtualFiles[n]; 1251 1251 + using(var cr = new StringReader(virtualFile)) 1252 1252 + _loaderReference.LoadFromReader(cr,n); 1253 1253 + return PType.Null; 1254 1254 + } 1255 1255 + } 1256 1256 + } 1263 1257 }

+186 -186

PrexoniteTests/Tests/TypeSystem.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - using System; 27 27 - using System.Threading; 28 28 - using NUnit.Framework; 29 29 - using Prexonite; 30 30 - using Prexonite.Types; 31 31 - using Prx.Tests; 32 32 - 33 33 - namespace PrexoniteTests.Tests 34 34 - { 35 35 - [TestFixture(Description = "General type system checks")] 36 36 - public class TypeSystem 37 37 - { 38 38 - private Engine engine; 39 39 - private StackContext sctx; 40 40 - 41 41 - [TestFixtureSetUp] 42 42 - public void SetupTypeSystemEngine() 43 43 - { 44 44 - engine = new Engine(); 45 45 - sctx = new TestStackContext(engine, new Application()); 46 46 - } 47 47 - 48 48 - [TestFixtureTearDown] 49 49 - public void TeardownTypeSystemEngine() 50 50 - { 51 51 - engine = null; 52 52 - sctx = null; 53 53 - } 54 54 - 55 55 - [Test(Description = "Does a number of set and get calls on a mock object")] 56 56 - public void TestFieldAccess() 57 57 - { 58 58 - //obj.Subject = 55; 59 59 - //obj.Count = obj.Subject; 60 60 - var test = new TestObject(); 61 61 - var obj = engine.CreateNativePValue(test); 62 62 - Assert.AreEqual(obj.Type, PType.Object[typeof (TestObject)]); 63 63 - Assert.AreSame(test, obj.Value); 64 64 - 65 65 - //Set obj.Subject = 55 66 66 - obj.DynamicCall( 67 67 - sctx, 68 68 - new PValue[] {55}, 69 69 - PCall.Set, 70 70 - "Subject"); 71 71 - Assert.AreSame(test, obj.Value); 72 72 - Assert.AreEqual(test.Subject, ((TestObject) obj.Value).Subject); 73 73 - 74 74 - //Get res = obj.Subject 75 75 - var res = obj.DynamicCall( 76 76 - sctx, 77 77 - new PValue[] {}, 78 78 - PCall.Get, 79 79 - "Subject"); 80 80 - Assert.AreEqual(test.Subject, res.Value); 81 81 - 82 82 - //Set obj.Count = res 83 83 - obj.DynamicCall( 84 84 - sctx, 85 85 - new[] {res}, 86 86 - PCall.Set, 87 87 - "Count"); 88 88 - Assert.AreEqual(55, test.Count); 89 89 - 90 90 - //Get res = obj.Count 91 91 - res = obj.DynamicCall( 92 92 - sctx, 93 93 - new PValue[] {}, 94 94 - PCall.Get, 95 95 - "Count"); 96 96 - Assert.AreEqual(55, test.Count); 97 97 - Assert.AreEqual(55, (int) res.Value); 98 98 - } 99 99 - 100 100 - [Test(Description = "Test the implicit [basic] to [PValue] conversion operators")] 101 101 - public void TestImplicitPValueConversion() 102 102 - { 103 103 - PValue obj; 104 104 - 105 105 - obj = 55; 106 106 - Assert.AreSame(PType.Int, obj.Type); 107 107 - 108 108 - obj = 5.5; 109 109 - Assert.AreSame(PType.Real, obj.Type); 110 110 - 111 111 - obj = true; 112 112 - Assert.AreSame(PType.Bool, obj.Type); 113 113 - 114 114 - obj = "Hello World"; 115 115 - Assert.AreSame(PType.String, obj.Type); 116 116 - } 117 117 - 118 118 - [Test(Description = "PType creation from type name.")] 119 119 - public void TestPTypeCreationUsingClrObjects_name() 120 120 - { 121 121 - var res = 122 122 - sctx.ConstructPType( 123 123 - "Object", new[] {PType.Object.CreatePValue(typeof (Int32))}); 124 124 - Assert.AreEqual(PType.Object[typeof (Int32)], res); 125 125 - } 126 126 - 127 127 - [Test(Description = "PType creation from type")] 128 128 - public void TestPTypeCreationUsingClrObjects_type() 129 129 - { 130 130 - var res = 131 131 - sctx.ConstructPType( 132 132 - typeof (ObjectPType), new[] {PType.Object.CreatePValue(typeof (DateTime))}); 133 133 - Assert.AreEqual(PType.Object[typeof (DateTime)], res); 134 134 - } 135 135 - 136 136 - [Test(Description = "PType creation from type as ClrPType")] 137 137 - public void TestPTypeCreationUsingClrObjects_clrtype() 138 138 - { 139 139 - var res = 140 140 - sctx.ConstructPType( 141 141 - PType.Object[typeof (ObjectPType)], 142 142 - new[] {PType.Object.CreatePValue(typeof (Thread))}); 143 143 - Assert.AreEqual(PType.Object[typeof (Thread)], res); 144 144 - } 145 145 - 146 146 - [Test(Description = "Creation of a ClrPType from a fqTypeName")] 147 147 - public void TestTypeResolving() 148 148 - { 149 149 - var res = new ObjectPType(sctx, "System.Threading.Thread"); 150 150 - Assert.AreEqual(PType.Object[typeof (Thread)], res); 151 151 - } 152 152 - 153 153 - [Test(Description = "PType creation from type simple expression")] 154 154 - public void TestPTypeCreationUsingExpression_simple() 155 155 - { 156 156 - var res = sctx.ConstructPType("Object(\"System.Threading.Thread\")"); 157 157 - Assert.AreEqual(PType.Object[typeof (Thread)], res); 158 158 - } 159 159 - 160 160 - [Test] 161 161 - public void NativePValue() 162 162 - { 163 163 - var str = "Hello "; 164 164 - var nStr = engine.CreateNativePValue(str); 165 165 - Assert.IsInstanceOf(typeof (StringPType), nStr.Type); 166 166 - Assert.AreSame(str, nStr.Value); 167 167 - } 168 168 - 169 169 - [Test] 170 170 - public void TestStringEscape() 171 171 - { 172 172 - var sEscaped = @"This is a \n followed by a \ttab and an umlaut: \x" + 173 173 - ((int) '�').ToString("X") + 174 174 - " escape sequence."; 175 175 - var sUnescaped = "This is a \n followed by a \ttab and an umlaut: � escape sequence."; 176 176 - 177 177 - var escaped = PType.String.CreatePValue(sEscaped); 178 178 - PValue unescaped; 179 179 - Assert.IsTrue( 180 180 - escaped.TryDynamicCall(sctx, new PValue[] {}, PCall.Get, "unescape", out unescaped)); 181 181 - Assert.AreEqual(sUnescaped, unescaped.Value as string); 182 182 - Assert.IsTrue( 183 183 - unescaped.TryDynamicCall(sctx, new PValue[] {}, PCall.Get, "escape", out escaped)); 184 184 - Assert.AreEqual(sEscaped, escaped.Value as string); 185 185 - } 186 186 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + using System; 27 27 + using System.Threading; 28 28 + using NUnit.Framework; 29 29 + using Prexonite; 30 30 + using Prexonite.Types; 31 31 + using Prx.Tests; 32 32 + 33 33 + namespace PrexoniteTests.Tests 34 34 + { 35 35 + [TestFixture(Description = "General type system checks")] 36 36 + public class TypeSystem 37 37 + { 38 38 + private Engine engine; 39 39 + private StackContext sctx; 40 40 + 41 41 + [OneTimeSetUp] 42 42 + public void SetupTypeSystemEngine() 43 43 + { 44 44 + engine = new Engine(); 45 45 + sctx = new TestStackContext(engine, new Application()); 46 46 + } 47 47 + 48 48 + [OneTimeTearDown] 49 49 + public void TeardownTypeSystemEngine() 50 50 + { 51 51 + engine = null; 52 52 + sctx = null; 53 53 + } 54 54 + 55 55 + [Test(Description = "Does a number of set and get calls on a mock object")] 56 56 + public void TestFieldAccess() 57 57 + { 58 58 + //obj.Subject = 55; 59 59 + //obj.Count = obj.Subject; 60 60 + var test = new TestObject(); 61 61 + var obj = engine.CreateNativePValue(test); 62 62 + Assert.AreEqual(obj.Type, PType.Object[typeof (TestObject)]); 63 63 + Assert.AreSame(test, obj.Value); 64 64 + 65 65 + //Set obj.Subject = 55 66 66 + obj.DynamicCall( 67 67 + sctx, 68 68 + new PValue[] {55}, 69 69 + PCall.Set, 70 70 + "Subject"); 71 71 + Assert.AreSame(test, obj.Value); 72 72 + Assert.AreEqual(test.Subject, ((TestObject) obj.Value).Subject); 73 73 + 74 74 + //Get res = obj.Subject 75 75 + var res = obj.DynamicCall( 76 76 + sctx, 77 77 + new PValue[] {}, 78 78 + PCall.Get, 79 79 + "Subject"); 80 80 + Assert.AreEqual(test.Subject, res.Value); 81 81 + 82 82 + //Set obj.Count = res 83 83 + obj.DynamicCall( 84 84 + sctx, 85 85 + new[] {res}, 86 86 + PCall.Set, 87 87 + "Count"); 88 88 + Assert.AreEqual(55, test.Count); 89 89 + 90 90 + //Get res = obj.Count 91 91 + res = obj.DynamicCall( 92 92 + sctx, 93 93 + new PValue[] {}, 94 94 + PCall.Get, 95 95 + "Count"); 96 96 + Assert.AreEqual(55, test.Count); 97 97 + Assert.AreEqual(55, (int) res.Value); 98 98 + } 99 99 + 100 100 + [Test(Description = "Test the implicit [basic] to [PValue] conversion operators")] 101 101 + public void TestImplicitPValueConversion() 102 102 + { 103 103 + PValue obj; 104 104 + 105 105 + obj = 55; 106 106 + Assert.AreSame(PType.Int, obj.Type); 107 107 + 108 108 + obj = 5.5; 109 109 + Assert.AreSame(PType.Real, obj.Type); 110 110 + 111 111 + obj = true; 112 112 + Assert.AreSame(PType.Bool, obj.Type); 113 113 + 114 114 + obj = "Hello World"; 115 115 + Assert.AreSame(PType.String, obj.Type); 116 116 + } 117 117 + 118 118 + [Test(Description = "PType creation from type name.")] 119 119 + public void TestPTypeCreationUsingClrObjects_name() 120 120 + { 121 121 + var res = 122 122 + sctx.ConstructPType( 123 123 + "Object", new[] {PType.Object.CreatePValue(typeof (Int32))}); 124 124 + Assert.AreEqual(PType.Object[typeof (Int32)], res); 125 125 + } 126 126 + 127 127 + [Test(Description = "PType creation from type")] 128 128 + public void TestPTypeCreationUsingClrObjects_type() 129 129 + { 130 130 + var res = 131 131 + sctx.ConstructPType( 132 132 + typeof (ObjectPType), new[] {PType.Object.CreatePValue(typeof (DateTime))}); 133 133 + Assert.AreEqual(PType.Object[typeof (DateTime)], res); 134 134 + } 135 135 + 136 136 + [Test(Description = "PType creation from type as ClrPType")] 137 137 + public void TestPTypeCreationUsingClrObjects_clrtype() 138 138 + { 139 139 + var res = 140 140 + sctx.ConstructPType( 141 141 + PType.Object[typeof (ObjectPType)], 142 142 + new[] {PType.Object.CreatePValue(typeof (Thread))}); 143 143 + Assert.AreEqual(PType.Object[typeof (Thread)], res); 144 144 + } 145 145 + 146 146 + [Test(Description = "Creation of a ClrPType from a fqTypeName")] 147 147 + public void TestTypeResolving() 148 148 + { 149 149 + var res = new ObjectPType(sctx, "System.Threading.Thread"); 150 150 + Assert.AreEqual(PType.Object[typeof (Thread)], res); 151 151 + } 152 152 + 153 153 + [Test(Description = "PType creation from type simple expression")] 154 154 + public void TestPTypeCreationUsingExpression_simple() 155 155 + { 156 156 + var res = sctx.ConstructPType("Object(\"System.Threading.Thread\")"); 157 157 + Assert.AreEqual(PType.Object[typeof (Thread)], res); 158 158 + } 159 159 + 160 160 + [Test] 161 161 + public void NativePValue() 162 162 + { 163 163 + var str = "Hello "; 164 164 + var nStr = engine.CreateNativePValue(str); 165 165 + Assert.IsInstanceOf(typeof (StringPType), nStr.Type); 166 166 + Assert.AreSame(str, nStr.Value); 167 167 + } 168 168 + 169 169 + [Test] 170 170 + public void TestStringEscape() 171 171 + { 172 172 + var sEscaped = @"This is a \n followed by a \ttab and an umlaut: \x" + 173 173 + ((int) '�').ToString("X") + 174 174 + " escape sequence."; 175 175 + var sUnescaped = "This is a \n followed by a \ttab and an umlaut: � escape sequence."; 176 176 + 177 177 + var escaped = PType.String.CreatePValue(sEscaped); 178 178 + PValue unescaped; 179 179 + Assert.IsTrue( 180 180 + escaped.TryDynamicCall(sctx, new PValue[] {}, PCall.Get, "unescape", out unescaped)); 181 181 + Assert.AreEqual(sUnescaped, unescaped.Value as string); 182 182 + Assert.IsTrue( 183 183 + unescaped.TryDynamicCall(sctx, new PValue[] {}, PCall.Get, "escape", out escaped)); 184 184 + Assert.AreEqual(sEscaped, escaped.Value as string); 185 185 + } 186 186 + } 187 187 }

+488 -488

PrexoniteTests/Tests/VMTests.Macro.cs

Reviewed

··· 1 1 - // Prexonite 2 2 - // 3 3 - // Copyright (c) 2014, Christian Klauser 4 4 - // All rights reserved. 5 5 - // 6 6 - // Redistribution and use in source and binary forms, with or without modification, 7 7 - // are permitted provided that the following conditions are met: 8 8 - // 9 9 - // Redistributions of source code must retain the above copyright notice, 10 10 - // this list of conditions and the following disclaimer. 11 11 - // Redistributions in binary form must reproduce the above copyright notice, 12 12 - // this list of conditions and the following disclaimer in the 13 13 - // documentation and/or other materials provided with the distribution. 14 14 - // The names of the contributors may be used to endorse or 15 15 - // promote products derived from this software without specific prior written permission. 16 16 - // 17 17 - // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 - // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 - // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 - // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 - // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 - // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 - // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 - // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 - // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 - #if ((!(DEBUG || Verbose)) || forceIndex) && allowIndex 27 27 - #define useIndex 28 28 - #endif 29 29 - 30 30 - #define UseCil 31 31 - //need to change this in VMTestsBase.cs too! 32 32 - 33 33 - using System; 34 34 - using System.Collections.Generic; 35 35 - using NUnit.Framework; 36 36 - using Prexonite; 37 37 - using Prexonite.Compiler; 38 38 - using Prexonite.Compiler.Ast; 39 39 - using Prexonite.Compiler.Macro.Commands; 40 40 - using Prexonite.Modular; 41 41 - using Prexonite.Types; 42 42 - using PrexoniteTests.Tests; 43 43 - 44 44 - namespace Prx.Tests 45 45 - { 46 46 - public abstract partial class VMTests : VMTestsBase 47 47 - { 48 48 - [Test] 49 49 - public void CallSubMacroCommandNested() 50 50 - { 51 51 - CompileInvalid( 52 52 - @" 53 53 - function main(xs) 54 54 - { 55 55 - var zs = []; 56 56 - function f(x) 57 57 - { 58 58 - if(x mod 2 == 0) 59 59 - continue; 60 60 - if(x > 6) 61 61 - break; 62 62 - return x*3+1; 63 63 - } 64 64 - foreach(var x in xs) 65 65 - { 66 66 - zs[] = call\sub(f(?),[x]); 67 67 - } 68 68 - 69 69 - return zs.ToString(); 70 70 - } 71 71 - ", 72 72 - CallSub.Alias, "expression"); 73 73 - 74 74 - //var xs = new List<PValue> { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 }; 75 75 - //Expect("[ 4, 10, 16 ]", (PValue)xs); 76 76 - } 77 77 - 78 78 - [Test] 79 79 - public void CallSubMacroCommandTopLevel() 80 80 - { 81 81 - Compile( 82 82 - @" 83 83 - var zs = []; 84 84 - function main(x1,x2,x3) 85 85 - { 86 86 - function f(x) 87 87 - { 88 88 - if(x mod 2 == 0) 89 89 - continue; 90 90 - if(x > 6) 91 91 - break; 92 92 - return x*3+1; 93 93 - } 94 94 - 95 95 - zs[] = call\sub(f(?),[x1]); 96 96 - zs[] = call\sub(f(?),[x2]); 97 97 - call\sub(f(?),[x3]); 98 98 - 99 99 - return zs.ToString(); 100 100 - } 101 101 - "); 102 102 - Func<List<PValue>> getZs = () => 103 103 - { 104 104 - var pv = target.Variables["zs"].Value.Value as List<PValue>; 105 105 - return pv ?? new List<PValue>(0); 106 106 - }; 107 107 - Action resetZs = () => getZs().Clear(); 108 108 - 109 109 - Expect("[ 4, 10 ]", 1, 3); 110 110 - resetZs(); 111 111 - 112 112 - ExpectNull(2, 4, 8); 113 113 - Assert.AreEqual(0, getZs().Count); 114 114 - resetZs(); 115 115 - 116 116 - ExpectNull(1, 8, 8); 117 117 - var zs = getZs(); 118 118 - Assert.AreEqual(1, zs.Count); 119 119 - AssertPValuesAreEqual(4, zs[0]); 120 120 - resetZs(); 121 121 - 122 122 - ExpectNull(1, 3, 8); 123 123 - zs = getZs(); 124 124 - Assert.AreEqual(2, zs.Count); 125 125 - AssertPValuesAreEqual(4, zs[0]); 126 126 - AssertPValuesAreEqual(10, zs[1]); 127 127 - resetZs(); 128 128 - } 129 129 - 130 130 - [Test] 131 131 - public void CallSubMinimal() 132 132 - { 133 133 - Compile( 134 134 - @" 135 135 - function f(x) 136 136 - { 137 137 - return x; 138 138 - } 139 139 - 140 140 - function main() 141 141 - { 142 142 - call\sub(f(?),[2]); 143 143 - return 2; 144 144 - } 145 145 - "); 146 146 - 147 147 - Expect(2); 148 148 - } 149 149 - 150 150 - [Test] 151 151 - public void CallSubMinimalReturn() 152 152 - { 153 153 - Compile( 154 154 - @" 155 155 - function f() 156 156 - { 157 157 - return 1; 158 158 - } 159 159 - 160 160 - function main() 161 161 - { 162 162 - var zs = []; 163 163 - asm{nop nop nop} 164 164 - zs[] = call\sub(f(?)); 165 165 - asm{nop nop nop} 166 166 - return zs[0]; 167 167 - } 168 168 - "); 169 169 - 170 170 - Expect(1); 171 171 - } 172 172 - 173 173 - [Test] 174 174 - public void CallSubOfPartial() 175 175 - { 176 176 - CompileInvalid( 177 177 - @" 178 178 - function main(xs,y) 179 179 - { 180 180 - var zs = []; 181 181 - function f(x,y) 182 182 - { 183 183 - if(x mod 2 == 0) 184 184 - continue; 185 185 - if(x > y) 186 186 - break; 187 187 - return x*3+1; 188 188 - } 189 189 - foreach(var x in xs) 190 190 - { 191 191 - zs[] = call\sub(f(?,y),[x]); 192 192 - } 193 193 - 194 194 - return zs.ToString(); 195 195 - } 196 196 - ", 197 197 - CallSub.Alias, "expression"); 198 198 - 199 199 - //var xs = new List<PValue> { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 }; 200 200 - //Expect("[ 4, 10, 16 ]", (PValue)xs, 6); 201 201 - //Expect("[ 4, 10 ]", (PValue)xs, 4); 202 202 - } 203 203 - 204 204 - [Test] 205 205 - public void CaptureUnmentionedMacroVariable() 206 206 - { 207 207 - Compile( 208 208 - @" 209 209 - macro echo() 210 210 - { 211 211 - var f = (x) => 212 212 - if(context is null) 213 213 - ""context is null"" 214 214 - else if(context.LocalSymbols.TryGet(x, ref r)) 215 215 - var r 216 216 - else 217 217 - ""cannot resolve $x""; 218 218 - println(f.(""x"")); 219 219 - } 220 220 - 221 221 - function main() 222 222 - { 223 223 - var x = 15; 224 224 - echo; 225 225 - return x; 226 226 - } 227 227 - "); 228 228 - var clo = target.Functions["echo\\0"]; 229 229 - Assert.IsNotNull(clo, "Closure must exist."); 230 230 - Assert.IsTrue(clo.Meta.ContainsKey(PFunction.SharedNamesKey)); 231 231 - Assert.AreEqual(clo.Meta[PFunction.SharedNamesKey].List.Length, 1); 232 232 - Assert.AreEqual(clo.Meta[PFunction.SharedNamesKey].List[0].Text, 233 233 - MacroAliases.ContextAlias); 234 234 - 235 235 - Expect(15, new PValue[0]); 236 236 - } 237 237 - 238 238 - [Test] 239 239 - public void MacroTransport() 240 240 - { 241 241 - Compile( 242 242 - @" 243 243 - macro echo(lst) 244 244 - { 245 245 - lst = macro\unpack(lst); 246 246 - return new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 247 247 - context.Invocation.Line,context.Invocation.Column,sum(lst) + lst.Count); 248 248 - } 249 249 - 250 250 - macro gen(n) 251 251 - { 252 252 - n = n.Constant~Int; 253 253 - var id = macro\pack(1.to(n) >> all); 254 254 - var idConst = new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 255 255 - context.Invocation.Line,context.Invocation.Column, id); 256 256 - return call\macro([echo(idConst)]); 257 257 - } 258 258 - 259 259 - function main() 260 260 - { 261 261 - return gen(4); 262 262 - } 263 263 - 264 264 - function main2() 265 265 - { 266 266 - return gen(5); 267 267 - } 268 268 - "); 269 269 - 270 270 - Expect(1 + 2 + 3 + 4 + 4); 271 271 - ExpectNamed("main2", 1 + 2 + 3 + 4 + 5 + 5); 272 272 - } 273 273 - 274 274 - [Test] 275 275 - public void CallMacroOnFunction() 276 276 - { 277 277 - Compile( 278 278 - @" 279 279 - macro __append(con) 280 280 - { 281 281 - var c = con.Constant + ""__""; 282 282 - 283 283 - if(context.IsJustEffect) 284 284 - c += ""je""; 285 285 - 286 286 - if(context.Call~Int == Prexonite::Types::PCall.Set~Int) 287 287 - c += ""=""; 288 288 - 289 289 - var con = new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 290 290 - context.Invocation.Line,context.Invocation.Column,c); 291 291 - return con; 292 292 - } 293 293 - 294 294 - macro __surround(con, idx) 295 295 - { 296 296 - var idx = idx.Constant~Int; 297 297 - con.Constant = ""__"" + con.Constant; 298 298 - return [ call\macro([__append],[con]) 299 299 - , call\macro([__append(con)]) 300 300 - , call\macro([__append = con]) 301 301 - , call\macro([__append,true],[con]) 302 302 - , call\macro([__append,false],[con]) 303 303 - , call\macro([__append(con),true]) 304 304 - , call\macro([__append(con),false]) 305 305 - , call\macro([__append = con, true]) 306 306 - , call\macro([__append = con, false]) ][idx]; 307 307 - } 308 308 - 309 309 - function main(x,y) 310 310 - { 311 311 - return [ x + __surround(""xXx"", 0) + y 312 312 - , x + __surround(""xXx"", 1) + y 313 313 - , x + __surround(""xXx"", 2) + y 314 314 - , x + __surround(""xXx"", 3) + y 315 315 - , x + __surround(""xXx"", 4) + y 316 316 - , x + __surround(""xXx"", 5) + y 317 317 - , x + __surround(""xXx"", 6) + y 318 318 - , x + __surround(""xXx"", 7) + y 319 319 - , x + __surround(""xXx"", 8) + y]; 320 320 - } 321 321 - "); 322 322 - 323 323 - Expect(new List<PValue> 324 324 - { 325 325 - "a__xXx__b", 326 326 - "a__xXx__b", 327 327 - "a__xXx__=b", 328 328 - "a__xXx__jeb", 329 329 - "a__xXx__b", 330 330 - "a__xXx__jeb", 331 331 - "a__xXx__b", 332 332 - "a__xXx__je=b", 333 333 - "a__xXx__=b" 334 334 - }, "a", "b"); 335 335 - 336 336 - if (CompileToCil) 337 337 - { 338 338 - var surround = target.Functions["__surround"]; 339 339 - Assert.That(surround, Is.Not.Null, "Function __surround does not exist."); 340 340 - Assert.That(surround.Meta[PFunction.VolatileKey].Switch, 341 341 - Is.False, 342 342 - string.Format("Function {0} is volatile. Reason: {1}", surround.Id, 343 343 - surround.Meta[PFunction.DeficiencyKey].Text)); 344 344 - } 345 345 - } 346 346 - 347 347 - 348 348 - [Test,Ignore] 349 349 - public void PartialCallMacroOnFunction() 350 350 - { 351 351 - Compile( 352 352 - @" 353 353 - macro __append(con) 354 354 - { 355 355 - var c = con.Constant + ""__""; 356 356 - 357 357 - if(context.IsJustEffect) 358 358 - c += ""je""; 359 359 - 360 360 - if(context.Call~Int == Prexonite::Types::PCall.Set~Int) 361 361 - c += ""=""; 362 362 - 363 363 - var con = new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 364 364 - context.Invocation.Line,context.Invocation.Column,c); 365 365 - return con; 366 366 - } 367 367 - 368 368 - macro __surround\create_pa(con, idx) 369 369 - { 370 370 - var idx = idx.Constant~Int; 371 371 - con.Constant = ""__"" + con.Constant; 372 372 - var f = [ call\macro([?],[?]) // 20 373 373 - , call\macro([__append(?0)]) 374 374 - , call\macro([__append = ?0]) // 22 375 375 - , call\macro([__append,?],[con]) 376 376 - , call\macro([?,?],[?]) 377 377 - , call\macro([__append(con),?]) // 25 378 378 - , call\macro([__append(?0),?]) 379 379 - , call\macro([__append = ?0, ?]) // 27 380 380 - , call\macro([__append = con, ?]) ][idx]; 381 381 - 382 382 - var fc = macro\pack(f); 383 383 - return new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 384 384 - context.Invocation.Line,context.Invocation.Column,fc); 385 385 - } 386 386 - 387 387 - macro __surround(con, idx) 388 388 - { 389 389 - var i = idx.Constant~Int; //37 390 390 - var fc = call\macro([__surround\create_pa(con, idx)]).Expression; 391 391 - var f = macro\unpack(fc.Constant~Int); 392 392 - if(i == 0) 393 393 - return f.(macro\reference(__append),con); 394 394 - else if(i == 1) 395 395 - return f.(con); 396 396 - else if(i == 2) 397 397 - return f.(con); 398 398 - else if(i == 3) 399 399 - return f.(true); 400 400 - else if(i == 4) 401 401 - return f.(macro\reference(__append),false,con); 402 402 - else if(i == 5) // 50 403 403 - return f.(true); 404 404 - else if(i == 6) 405 405 - return f.(con, false); 406 406 - else if(i == 7) 407 407 - return f.(con,true); 408 408 - else if(i == 8) 409 409 - return f.(false); 410 410 - else 411 411 - throw ""ZOMG! (invalid index to macro __surround)""; 412 412 - } // 60 413 413 - 414 414 - function main(x,y) 415 415 - { 416 416 - return [ x + __surround(""xXx"", 0) + y 417 417 - , x + __surround(""xXx"", 1) + y 418 418 - , x + __surround(""xXx"", 2) + y 419 419 - , x + __surround(""xXx"", 3) + y 420 420 - , x + __surround(""xXx"", 4) + y 421 421 - , x + __surround(""xXx"", 5) + y 422 422 - , x + __surround(""xXx"", 6) + y // 70 423 423 - , x + __surround(""xXx"", 7) + y // 71 424 424 - , x + __surround(""xXx"", 8) + y]; // 72 425 425 - } 426 426 - "); 427 427 - 428 428 - Expect(new List<PValue> 429 429 - { 430 430 - "a__xXx__b", 431 431 - "a__xXx__b", 432 432 - "a__xXx__=b", 433 433 - "a__xXx__jeb", 434 434 - "a__xXx__b", 435 435 - "a__xXx__jeb", 436 436 - "a__xXx__b", 437 437 - "a__xXx__je=b", 438 438 - "a__xXx__=b" 439 439 - }, "a", "b"); 440 440 - } 441 441 - 442 442 - [Test] 443 443 - public void AstIsExpand() 444 444 - { 445 445 - Compile(@" 446 446 - var uniq\\node_t6; 447 447 - 448 448 - function ast_is_Expand(node_arg) 449 449 - {asm{ 450 450 - var tmpp0 451 451 - /* 00 */ ldloc node_arg 452 452 - /* 01 */ cmd.1 boxed 453 453 - /* 02 */ get.0 Type 454 454 - /* 03 */ dup 1 455 455 - /* 04 */ stloc tmpp0 456 456 - /* 05 */ check.const ""Object(\""Prexonite.Types.ObjectPType\"")"" 457 457 - /* 06 */ jump.t 9 458 458 - /* 07 */ ldc.bool false 459 459 - /* 08 */ ret.value 460 460 - /* 09 */ ldglob uniq\\node_t6 461 461 - /* 10 */ check.null 462 462 - /* 11 */ jump.f 15 463 463 - /* 12 */ ldc.string ""Prexonite.Compiler.Ast.AstExpand"" 464 464 - /* 13 */ sget.1 ""Object(\""System.Type\"")::GetType"" 465 465 - /* 14 */ stglob uniq\\node_t6 466 466 - /* 15 */ ldglob uniq\\node_t6 467 467 - /* 16 */ ldloc tmpp0 468 468 - /* 17 */ get.0 ClrType 469 469 - /* 18 */ get.1 IsAssignableFrom 470 470 - /* 19 */ jump.f 26 471 471 - /* 20 */ ldloc node_arg 472 472 - /* 21 */ get.0 CheckForPlaceholders 473 473 - /* 22 */ cmd.1 $not 474 474 - /* 23 */ jump.f 26 475 475 - /* 24 */ ldc.bool true 476 476 - /* 25 */ jump 27 477 477 - /* 26 */ ldc.bool false 478 478 - /* 27 */ ret.value 479 479 - /* 28 */ }} 480 480 - 481 481 - function main(n) = ast_is_Expand(n);"); 482 482 - 483 483 - Expect(true, 484 484 - sctx.CreateNativePValue(new AstExpand(NoSourcePosition.Instance, 485 485 - EntityRef.MacroCommand.Create("call\\macro"), PCall.Get))); 486 486 - 487 487 - } 488 488 - } 1 1 + // Prexonite 2 2 + // 3 3 + // Copyright (c) 2014, Christian Klauser 4 4 + // All rights reserved. 5 5 + // 6 6 + // Redistribution and use in source and binary forms, with or without modification, 7 7 + // are permitted provided that the following conditions are met: 8 8 + // 9 9 + // Redistributions of source code must retain the above copyright notice, 10 10 + // this list of conditions and the following disclaimer. 11 11 + // Redistributions in binary form must reproduce the above copyright notice, 12 12 + // this list of conditions and the following disclaimer in the 13 13 + // documentation and/or other materials provided with the distribution. 14 14 + // The names of the contributors may be used to endorse or 15 15 + // promote products derived from this software without specific prior written permission. 16 16 + // 17 17 + // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 18 18 + // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 19 19 + // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 20 + // IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, 21 21 + // INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 22 22 + // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23 23 + // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 24 24 + // WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 25 25 + // IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 26 + #if ((!(DEBUG || Verbose)) || forceIndex) && allowIndex 27 27 + #define useIndex 28 28 + #endif 29 29 + 30 30 + #define UseCil 31 31 + //need to change this in VMTestsBase.cs too! 32 32 + 33 33 + using System; 34 34 + using System.Collections.Generic; 35 35 + using NUnit.Framework; 36 36 + using Prexonite; 37 37 + using Prexonite.Compiler; 38 38 + using Prexonite.Compiler.Ast; 39 39 + using Prexonite.Compiler.Macro.Commands; 40 40 + using Prexonite.Modular; 41 41 + using Prexonite.Types; 42 42 + using PrexoniteTests.Tests; 43 43 + 44 44 + namespace Prx.Tests 45 45 + { 46 46 + public abstract partial class VMTests : VMTestsBase 47 47 + { 48 48 + [Test] 49 49 + public void CallSubMacroCommandNested() 50 50 + { 51 51 + CompileInvalid( 52 52 + @" 53 53 + function main(xs) 54 54 + { 55 55 + var zs = []; 56 56 + function f(x) 57 57 + { 58 58 + if(x mod 2 == 0) 59 59 + continue; 60 60 + if(x > 6) 61 61 + break; 62 62 + return x*3+1; 63 63 + } 64 64 + foreach(var x in xs) 65 65 + { 66 66 + zs[] = call\sub(f(?),[x]); 67 67 + } 68 68 + 69 69 + return zs.ToString(); 70 70 + } 71 71 + ", 72 72 + CallSub.Alias, "expression"); 73 73 + 74 74 + //var xs = new List<PValue> { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 }; 75 75 + //Expect("[ 4, 10, 16 ]", (PValue)xs); 76 76 + } 77 77 + 78 78 + [Test] 79 79 + public void CallSubMacroCommandTopLevel() 80 80 + { 81 81 + Compile( 82 82 + @" 83 83 + var zs = []; 84 84 + function main(x1,x2,x3) 85 85 + { 86 86 + function f(x) 87 87 + { 88 88 + if(x mod 2 == 0) 89 89 + continue; 90 90 + if(x > 6) 91 91 + break; 92 92 + return x*3+1; 93 93 + } 94 94 + 95 95 + zs[] = call\sub(f(?),[x1]); 96 96 + zs[] = call\sub(f(?),[x2]); 97 97 + call\sub(f(?),[x3]); 98 98 + 99 99 + return zs.ToString(); 100 100 + } 101 101 + "); 102 102 + Func<List<PValue>> getZs = () => 103 103 + { 104 104 + var pv = target.Variables["zs"].Value.Value as List<PValue>; 105 105 + return pv ?? new List<PValue>(0); 106 106 + }; 107 107 + Action resetZs = () => getZs().Clear(); 108 108 + 109 109 + Expect("[ 4, 10 ]", 1, 3); 110 110 + resetZs(); 111 111 + 112 112 + ExpectNull(2, 4, 8); 113 113 + Assert.AreEqual(0, getZs().Count); 114 114 + resetZs(); 115 115 + 116 116 + ExpectNull(1, 8, 8); 117 117 + var zs = getZs(); 118 118 + Assert.AreEqual(1, zs.Count); 119 119 + AssertPValuesAreEqual(4, zs[0]); 120 120 + resetZs(); 121 121 + 122 122 + ExpectNull(1, 3, 8); 123 123 + zs = getZs(); 124 124 + Assert.AreEqual(2, zs.Count); 125 125 + AssertPValuesAreEqual(4, zs[0]); 126 126 + AssertPValuesAreEqual(10, zs[1]); 127 127 + resetZs(); 128 128 + } 129 129 + 130 130 + [Test] 131 131 + public void CallSubMinimal() 132 132 + { 133 133 + Compile( 134 134 + @" 135 135 + function f(x) 136 136 + { 137 137 + return x; 138 138 + } 139 139 + 140 140 + function main() 141 141 + { 142 142 + call\sub(f(?),[2]); 143 143 + return 2; 144 144 + } 145 145 + "); 146 146 + 147 147 + Expect(2); 148 148 + } 149 149 + 150 150 + [Test] 151 151 + public void CallSubMinimalReturn() 152 152 + { 153 153 + Compile( 154 154 + @" 155 155 + function f() 156 156 + { 157 157 + return 1; 158 158 + } 159 159 + 160 160 + function main() 161 161 + { 162 162 + var zs = []; 163 163 + asm{nop nop nop} 164 164 + zs[] = call\sub(f(?)); 165 165 + asm{nop nop nop} 166 166 + return zs[0]; 167 167 + } 168 168 + "); 169 169 + 170 170 + Expect(1); 171 171 + } 172 172 + 173 173 + [Test] 174 174 + public void CallSubOfPartial() 175 175 + { 176 176 + CompileInvalid( 177 177 + @" 178 178 + function main(xs,y) 179 179 + { 180 180 + var zs = []; 181 181 + function f(x,y) 182 182 + { 183 183 + if(x mod 2 == 0) 184 184 + continue; 185 185 + if(x > y) 186 186 + break; 187 187 + return x*3+1; 188 188 + } 189 189 + foreach(var x in xs) 190 190 + { 191 191 + zs[] = call\sub(f(?,y),[x]); 192 192 + } 193 193 + 194 194 + return zs.ToString(); 195 195 + } 196 196 + ", 197 197 + CallSub.Alias, "expression"); 198 198 + 199 199 + //var xs = new List<PValue> { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 }; 200 200 + //Expect("[ 4, 10, 16 ]", (PValue)xs, 6); 201 201 + //Expect("[ 4, 10 ]", (PValue)xs, 4); 202 202 + } 203 203 + 204 204 + [Test] 205 205 + public void CaptureUnmentionedMacroVariable() 206 206 + { 207 207 + Compile( 208 208 + @" 209 209 + macro echo() 210 210 + { 211 211 + var f = (x) => 212 212 + if(context is null) 213 213 + ""context is null"" 214 214 + else if(context.LocalSymbols.TryGet(x, ref r)) 215 215 + var r 216 216 + else 217 217 + ""cannot resolve $x""; 218 218 + println(f.(""x"")); 219 219 + } 220 220 + 221 221 + function main() 222 222 + { 223 223 + var x = 15; 224 224 + echo; 225 225 + return x; 226 226 + } 227 227 + "); 228 228 + var clo = target.Functions["echo\\0"]; 229 229 + Assert.IsNotNull(clo, "Closure must exist."); 230 230 + Assert.IsTrue(clo.Meta.ContainsKey(PFunction.SharedNamesKey)); 231 231 + Assert.AreEqual(clo.Meta[PFunction.SharedNamesKey].List.Length, 1); 232 232 + Assert.AreEqual(clo.Meta[PFunction.SharedNamesKey].List[0].Text, 233 233 + MacroAliases.ContextAlias); 234 234 + 235 235 + Expect(15, new PValue[0]); 236 236 + } 237 237 + 238 238 + [Test] 239 239 + public void MacroTransport() 240 240 + { 241 241 + Compile( 242 242 + @" 243 243 + macro echo(lst) 244 244 + { 245 245 + lst = macro\unpack(lst); 246 246 + return new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 247 247 + context.Invocation.Line,context.Invocation.Column,sum(lst) + lst.Count); 248 248 + } 249 249 + 250 250 + macro gen(n) 251 251 + { 252 252 + n = n.Constant~Int; 253 253 + var id = macro\pack(1.to(n) >> all); 254 254 + var idConst = new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 255 255 + context.Invocation.Line,context.Invocation.Column, id); 256 256 + return call\macro([echo(idConst)]); 257 257 + } 258 258 + 259 259 + function main() 260 260 + { 261 261 + return gen(4); 262 262 + } 263 263 + 264 264 + function main2() 265 265 + { 266 266 + return gen(5); 267 267 + } 268 268 + "); 269 269 + 270 270 + Expect(1 + 2 + 3 + 4 + 4); 271 271 + ExpectNamed("main2", 1 + 2 + 3 + 4 + 5 + 5); 272 272 + } 273 273 + 274 274 + [Test] 275 275 + public void CallMacroOnFunction() 276 276 + { 277 277 + Compile( 278 278 + @" 279 279 + macro __append(con) 280 280 + { 281 281 + var c = con.Constant + ""__""; 282 282 + 283 283 + if(context.IsJustEffect) 284 284 + c += ""je""; 285 285 + 286 286 + if(context.Call~Int == Prexonite::Types::PCall.Set~Int) 287 287 + c += ""=""; 288 288 + 289 289 + var con = new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 290 290 + context.Invocation.Line,context.Invocation.Column,c); 291 291 + return con; 292 292 + } 293 293 + 294 294 + macro __surround(con, idx) 295 295 + { 296 296 + var idx = idx.Constant~Int; 297 297 + con.Constant = ""__"" + con.Constant; 298 298 + return [ call\macro([__append],[con]) 299 299 + , call\macro([__append(con)]) 300 300 + , call\macro([__append = con]) 301 301 + , call\macro([__append,true],[con]) 302 302 + , call\macro([__append,false],[con]) 303 303 + , call\macro([__append(con),true]) 304 304 + , call\macro([__append(con),false]) 305 305 + , call\macro([__append = con, true]) 306 306 + , call\macro([__append = con, false]) ][idx]; 307 307 + } 308 308 + 309 309 + function main(x,y) 310 310 + { 311 311 + return [ x + __surround(""xXx"", 0) + y 312 312 + , x + __surround(""xXx"", 1) + y 313 313 + , x + __surround(""xXx"", 2) + y 314 314 + , x + __surround(""xXx"", 3) + y 315 315 + , x + __surround(""xXx"", 4) + y 316 316 + , x + __surround(""xXx"", 5) + y 317 317 + , x + __surround(""xXx"", 6) + y 318 318 + , x + __surround(""xXx"", 7) + y 319 319 + , x + __surround(""xXx"", 8) + y]; 320 320 + } 321 321 + "); 322 322 + 323 323 + Expect(new List<PValue> 324 324 + { 325 325 + "a__xXx__b", 326 326 + "a__xXx__b", 327 327 + "a__xXx__=b", 328 328 + "a__xXx__jeb", 329 329 + "a__xXx__b", 330 330 + "a__xXx__jeb", 331 331 + "a__xXx__b", 332 332 + "a__xXx__je=b", 333 333 + "a__xXx__=b" 334 334 + }, "a", "b"); 335 335 + 336 336 + if (CompileToCil) 337 337 + { 338 338 + var surround = target.Functions["__surround"]; 339 339 + Assert.That(surround, Is.Not.Null, "Function __surround does not exist."); 340 340 + Assert.That(surround.Meta[PFunction.VolatileKey].Switch, 341 341 + Is.False, 342 342 + string.Format("Function {0} is volatile. Reason: {1}", surround.Id, 343 343 + surround.Meta[PFunction.DeficiencyKey].Text)); 344 344 + } 345 345 + } 346 346 + 347 347 + 348 348 + [Test,Ignore("TODO: figure out why this is ignored")] 349 349 + public void PartialCallMacroOnFunction() 350 350 + { 351 351 + Compile( 352 352 + @" 353 353 + macro __append(con) 354 354 + { 355 355 + var c = con.Constant + ""__""; 356 356 + 357 357 + if(context.IsJustEffect) 358 358 + c += ""je""; 359 359 + 360 360 + if(context.Call~Int == Prexonite::Types::PCall.Set~Int) 361 361 + c += ""=""; 362 362 + 363 363 + var con = new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 364 364 + context.Invocation.Line,context.Invocation.Column,c); 365 365 + return con; 366 366 + } 367 367 + 368 368 + macro __surround\create_pa(con, idx) 369 369 + { 370 370 + var idx = idx.Constant~Int; 371 371 + con.Constant = ""__"" + con.Constant; 372 372 + var f = [ call\macro([?],[?]) // 20 373 373 + , call\macro([__append(?0)]) 374 374 + , call\macro([__append = ?0]) // 22 375 375 + , call\macro([__append,?],[con]) 376 376 + , call\macro([?,?],[?]) 377 377 + , call\macro([__append(con),?]) // 25 378 378 + , call\macro([__append(?0),?]) 379 379 + , call\macro([__append = ?0, ?]) // 27 380 380 + , call\macro([__append = con, ?]) ][idx]; 381 381 + 382 382 + var fc = macro\pack(f); 383 383 + return new Prexonite::Compiler::Ast::AstConstant(context.Invocation.File, 384 384 + context.Invocation.Line,context.Invocation.Column,fc); 385 385 + } 386 386 + 387 387 + macro __surround(con, idx) 388 388 + { 389 389 + var i = idx.Constant~Int; //37 390 390 + var fc = call\macro([__surround\create_pa(con, idx)]).Expression; 391 391 + var f = macro\unpack(fc.Constant~Int); 392 392 + if(i == 0) 393 393 + return f.(macro\reference(__append),con); 394 394 + else if(i == 1) 395 395 + return f.(con); 396 396 + else if(i == 2) 397 397 + return f.(con); 398 398 + else if(i == 3) 399 399 + return f.(true); 400 400 + else if(i == 4) 401 401 + return f.(macro\reference(__append),false,con); 402 402 + else if(i == 5) // 50 403 403 + return f.(true); 404 404 + else if(i == 6) 405 405 + return f.(con, false); 406 406 + else if(i == 7) 407 407 + return f.(con,true); 408 408 + else if(i == 8) 409 409 + return f.(false); 410 410 + else 411 411 + throw ""ZOMG! (invalid index to macro __surround)""; 412 412 + } // 60 413 413 + 414 414 + function main(x,y) 415 415 + { 416 416 + return [ x + __surround(""xXx"", 0) + y 417 417 + , x + __surround(""xXx"", 1) + y 418 418 + , x + __surround(""xXx"", 2) + y 419 419 + , x + __surround(""xXx"", 3) + y 420 420 + , x + __surround(""xXx"", 4) + y 421 421 + , x + __surround(""xXx"", 5) + y 422 422 + , x + __surround(""xXx"", 6) + y // 70 423 423 + , x + __surround(""xXx"", 7) + y // 71 424 424 + , x + __surround(""xXx"", 8) + y]; // 72 425 425 + } 426 426 + "); 427 427 + 428 428 + Expect(new List<PValue> 429 429 + { 430 430 + "a__xXx__b", 431 431 + "a__xXx__b", 432 432 + "a__xXx__=b", 433 433 + "a__xXx__jeb", 434 434 + "a__xXx__b", 435 435 + "a__xXx__jeb", 436 436 + "a__xXx__b", 437 437 + "a__xXx__je=b", 438 438 + "a__xXx__=b" 439 439 + }, "a", "b"); 440 440 + } 441 441 + 442 442 + [Test] 443 443 + public void AstIsExpand() 444 444 + { 445 445 + Compile(@" 446 446 + var uniq\\node_t6; 447 447 + 448 448 + function ast_is_Expand(node_arg) 449 449 + {asm{ 450 450 + var tmpp0 451 451 + /* 00 */ ldloc node_arg 452 452 + /* 01 */ cmd.1 boxed 453 453 + /* 02 */ get.0 Type 454 454 + /* 03 */ dup 1 455 455 + /* 04 */ stloc tmpp0 456 456 + /* 05 */ check.const ""Object(\""Prexonite.Types.ObjectPType\"")"" 457 457 + /* 06 */ jump.t 9 458 458 + /* 07 */ ldc.bool false 459 459 + /* 08 */ ret.value 460 460 + /* 09 */ ldglob uniq\\node_t6 461 461 + /* 10 */ check.null 462 462 + /* 11 */ jump.f 15 463 463 + /* 12 */ ldc.string ""Prexonite.Compiler.Ast.AstExpand"" 464 464 + /* 13 */ sget.1 ""Object(\""System.Type\"")::GetType"" 465 465 + /* 14 */ stglob uniq\\node_t6 466 466 + /* 15 */ ldglob uniq\\node_t6 467 467 + /* 16 */ ldloc tmpp0 468 468 + /* 17 */ get.0 ClrType 469 469 + /* 18 */ get.1 IsAssignableFrom 470 470 + /* 19 */ jump.f 26 471 471 + /* 20 */ ldloc node_arg 472 472 + /* 21 */ get.0 CheckForPlaceholders 473 473 + /* 22 */ cmd.1 $not 474 474 + /* 23 */ jump.f 26 475 475 + /* 24 */ ldc.bool true 476 476 + /* 25 */ jump 27 477 477 + /* 26 */ ldc.bool false 478 478 + /* 27 */ ret.value 479 479 + /* 28 */ }} 480 480 + 481 481 + function main(n) = ast_is_Expand(n);"); 482 482 + 483 483 + Expect(true, 484 484 + sctx.CreateNativePValue(new AstExpand(NoSourcePosition.Instance, 485 485 + EntityRef.MacroCommand.Create("call\\macro"), PCall.Get))); 486 486 + 487 487 + } 488 488 + } 489 489 }

+6 -2

PrexoniteTests/packages.config

Reviewed

··· 1 1 <?xml version="1.0" encoding="utf-8"?> 2 2 <packages> 3 3 - <package id="Moq" version="4.0.10827" targetFramework="net45" /> 4 4 - <package id="NUnit" version="2.6.2" targetFramework="net45" /> 3 3 + <package id="Castle.Core" version="4.2.1" targetFramework="net461" /> 4 4 + <package id="Microsoft.Net.Compilers" version="2.7.0" targetFramework="net462" developmentDependency="true" /> 5 5 + <package id="Moq" version="4.8.2" targetFramework="net461" /> 6 6 + <package id="NUnit" version="3.10.1" targetFramework="net461" /> 7 7 + <package id="System.Threading.Tasks.Extensions" version="4.4.0" targetFramework="net461" /> 8 8 + <package id="System.ValueTuple" version="4.4.0" targetFramework="net461" /> 5 9 </packages>

+347 -335

Prx/Prx.csproj

Reviewed

··· 1 1 - <?xml version="1.0" encoding="utf-8"?> 2 2 - <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0"> 3 3 - <PropertyGroup> 4 4 - <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> 5 5 - <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> 6 6 - <ProductVersion>9.0.30729</ProductVersion> 7 7 - <SchemaVersion>2.0</SchemaVersion> 8 8 - <ProjectGuid>{8C90E0C5-8FD3-407C-ABE8-9EE856F87269}</ProjectGuid> 9 9 - <OutputType>Exe</OutputType> 10 10 - <AppDesignerFolder>Properties</AppDesignerFolder> 11 11 - <RootNamespace>Prx</RootNamespace> 12 12 - <AssemblyName>Prx</AssemblyName> 13 13 - <SccProjectName> 14 14 - </SccProjectName> 15 15 - <SccLocalPath> 16 16 - </SccLocalPath> 17 17 - <SccProvider> 18 18 - </SccProvider> 19 19 - <ApplicationIcon>Prx.ico</ApplicationIcon> 20 20 - <FileUpgradeFlags> 21 21 - </FileUpgradeFlags> 22 22 - <OldToolsVersion>3.5</OldToolsVersion> 23 23 - <UpgradeBackupLocation> 24 24 - </UpgradeBackupLocation> 25 25 - <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion> 26 26 - <IsWebBootstrapper>false</IsWebBootstrapper> 27 27 - <ApplicationManifest>app.manifest</ApplicationManifest> 28 28 - <TargetFrameworkProfile> 29 29 - </TargetFrameworkProfile> 30 30 - <PublishUrl>publish\</PublishUrl> 31 31 - <Install>true</Install> 32 32 - <InstallFrom>Disk</InstallFrom> 33 33 - <UpdateEnabled>false</UpdateEnabled> 34 34 - <UpdateMode>Foreground</UpdateMode> 35 35 - <UpdateInterval>7</UpdateInterval> 36 36 - <UpdateIntervalUnits>Days</UpdateIntervalUnits> 37 37 - <UpdatePeriodically>false</UpdatePeriodically> 38 38 - <UpdateRequired>false</UpdateRequired> 39 39 - <MapFileExtensions>true</MapFileExtensions> 40 40 - <ApplicationRevision>0</ApplicationRevision> 41 41 - <ApplicationVersion>1.0.0.%2a</ApplicationVersion> 42 42 - <UseApplicationTrust>false</UseApplicationTrust> 43 43 - <BootstrapperEnabled>true</BootstrapperEnabled> 44 44 - </PropertyGroup> 45 45 - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> 46 46 - <DebugSymbols>true</DebugSymbols> 47 47 - <DebugType>full</DebugType> 48 48 - <Optimize>false</Optimize> 49 49 - <OutputPath>bin\Debug\</OutputPath> 50 50 - <DefineConstants>DEBUG;TRACE</DefineConstants> 51 51 - <ErrorReport>prompt</ErrorReport> 52 52 - <WarningLevel>4</WarningLevel> 53 53 - <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 54 54 - <Prefer32Bit>false</Prefer32Bit> 55 55 - <LangVersion>6</LangVersion> 56 56 - </PropertyGroup> 57 57 - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> 58 58 - <DebugType>none</DebugType> 59 59 - <Optimize>true</Optimize> 60 60 - <OutputPath>bin\Release\</OutputPath> 61 61 - <DefineConstants>TRACE</DefineConstants> 62 62 - <ErrorReport>prompt</ErrorReport> 63 63 - <WarningLevel>4</WarningLevel> 64 64 - <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 65 65 - <Prefer32Bit>false</Prefer32Bit> 66 66 - </PropertyGroup> 67 67 - <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'"> 68 68 - <DebugSymbols>true</DebugSymbols> 69 69 - <OutputPath>bin\x86\Debug\</OutputPath> 70 70 - <DefineConstants>DEBUG;TRACE</DefineConstants> 71 71 - <DebugType>full</DebugType> 72 72 - <PlatformTarget>x86</PlatformTarget> 73 73 - <CodeAnalysisLogFile>bin\Debug\Prx.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 74 74 - <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 75 75 - <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 76 76 - <ErrorReport>prompt</ErrorReport> 77 77 - <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 78 78 - <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 79 79 - <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 80 80 - <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 81 81 - <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 82 82 - <Prefer32Bit>false</Prefer32Bit> 83 83 - </PropertyGroup> 84 84 - <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'"> 85 85 - <OutputPath>bin\x86\Release\</OutputPath> 86 86 - <DefineConstants>TRACE</DefineConstants> 87 87 - <Optimize>true</Optimize> 88 88 - <PlatformTarget>x86</PlatformTarget> 89 89 - <CodeAnalysisLogFile>bin\Release\Prx.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 90 90 - <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 91 91 - <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 92 92 - <ErrorReport>prompt</ErrorReport> 93 93 - <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 94 94 - <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 95 95 - <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 96 96 - <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 97 97 - <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 98 98 - <CodeAnalysisFailOnMissingRules>false</CodeAnalysisFailOnMissingRules> 99 99 - <Prefer32Bit>false</Prefer32Bit> 100 100 - </PropertyGroup> 101 101 - <PropertyGroup> 102 102 - <StartupObject>Prx.Program</StartupObject> 103 103 - </PropertyGroup> 104 104 - <ItemGroup> 105 105 - <Reference Include="System" /> 106 106 - </ItemGroup> 107 107 - <ItemGroup> 108 108 - <Compile Include="Benchmarking\Benchmark.cs" /> 109 109 - <Compile Include="Benchmarking\BenchmarkEntry.cs" /> 110 110 - <Compile Include="Benchmarking\BenchmarkEntryCollection.cs" /> 111 111 - <Compile Include="Benchmarking\Measurement.cs" /> 112 112 - <Compile Include="PrexoniteConsole.cs" /> 113 113 - <Compile Include="Program.cs" /> 114 114 - <Compile Include="Properties\AssemblyInfo.cs" /> 115 115 - <Compile Include="Properties\Resources.Designer.cs"> 116 116 - <AutoGen>True</AutoGen> 117 117 - <DesignTime>True</DesignTime> 118 118 - <DependentUpon>Resources.resx</DependentUpon> 119 119 - </Compile> 120 120 - <Compile Include="SuperConsole.cs" /> 121 121 - <Compile Include="Win32\User32.cs" /> 122 122 - </ItemGroup> 123 123 - <ItemGroup> 124 124 - <None Include="app.config" /> 125 125 - <None Include="app.manifest" /> 126 126 - <Content Include="psr\ast.pxs"> 127 127 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 128 128 - </Content> 129 129 - <Content Include="psr\console.pxs"> 130 130 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 131 131 - </Content> 132 132 - <Content Include="psr\csp.pxs"> 133 133 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 134 134 - </Content> 135 135 - <Content Include="psr\debug.pxs"> 136 136 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 137 137 - </Content> 138 138 - <Content Include="psr\call_sub.pxs"> 139 139 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 140 140 - </Content> 141 141 - <None Include="config\app.Release.config" /> 142 142 - <None Include="config\app.Debug.config" /> 143 143 - <None Include="psr\debug\debug.pxs"> 144 144 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 145 145 - </None> 146 146 - <None Include="psr\debug\disassembler.pxs"> 147 147 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 148 148 - </None> 149 149 - <Content Include="psr\file.pxs"> 150 150 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 151 151 - </Content> 152 152 - <Content Include="psr\hook.pxs"> 153 153 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 154 154 - </Content> 155 155 - <Content Include="psr\json.pxs"> 156 156 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 157 157 - </Content> 158 158 - <Content Include="psr\loop.pxs"> 159 159 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 160 160 - </Content> 161 161 - <Content Include="psr\macro.pxs"> 162 162 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 163 163 - </Content> 164 164 - <Content Include="psr\experimental\args.pxs"> 165 165 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 166 166 - </Content> 167 167 - <Content Include="psr\misc.pxs"> 168 168 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 169 169 - </Content> 170 170 - <Content Include="psr\pattern.pxs"> 171 171 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 172 172 - </Content> 173 173 - <Content Include="psr\prop.pxs"> 174 174 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 175 175 - </Content> 176 176 - <Content Include="psr\queue.pxs"> 177 177 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 178 178 - </Content> 179 179 - <Content Include="psr\set.pxs"> 180 180 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 181 181 - </Content> 182 182 - <Content Include="psr\stack.pxs"> 183 183 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 184 184 - </Content> 185 185 - <Content Include="psr\struct.pxs"> 186 186 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 187 187 - </Content> 188 188 - <Content Include="psr\dependency_analysis.pxs"> 189 189 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 190 190 - </Content> 191 191 - <None Include="psr\experimental\indentation.pxs"> 192 192 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 193 193 - </None> 194 194 - <None Include="psr\impl\ast.pxs"> 195 195 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 196 196 - </None> 197 197 - <None Include="psr\impl\call_sub.pxs"> 198 198 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 199 199 - </None> 200 200 - <None Include="psr\impl\console.pxs"> 201 201 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 202 202 - </None> 203 203 - <None Include="psr\impl\csp.pxs"> 204 204 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 205 205 - </None> 206 206 - <None Include="psr\impl\debug.pxs"> 207 207 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 208 208 - </None> 209 209 - <None Include="psr\impl\dependency_analysis.pxs"> 210 210 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 211 211 - </None> 212 212 - <None Include="psr\impl\file.pxs"> 213 213 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 214 214 - </None> 215 215 - <None Include="psr\impl\hook.pxs"> 216 216 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 217 217 - </None> 218 218 - <None Include="psr\impl\json.pxs"> 219 219 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 220 220 - </None> 221 221 - <None Include="psr\impl\loop.pxs"> 222 222 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 223 223 - </None> 224 224 - <None Include="psr\impl\macro.pxs"> 225 225 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 226 226 - </None> 227 227 - <None Include="psr\impl\misc.pxs"> 228 228 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 229 229 - </None> 230 230 - <None Include="psr\impl\pattern.pxs"> 231 231 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 232 232 - </None> 233 233 - <None Include="psr\impl\prop.pxs"> 234 234 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 235 235 - </None> 236 236 - <None Include="psr\impl\queue.pxs"> 237 237 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 238 238 - </None> 239 239 - <None Include="psr\impl\set.pxs"> 240 240 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 241 241 - </None> 242 242 - <None Include="psr\impl\stack.pxs"> 243 243 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 244 244 - </None> 245 245 - <None Include="psr\impl\struct.pxs"> 246 246 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 247 247 - </None> 248 248 - <None Include="psr\test.pxs"> 249 249 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 250 250 - </None> 251 251 - <None Include="psr\test\meta_macro.pxs"> 252 252 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 253 253 - </None> 254 254 - <None Include="samples\beer.pxs"> 255 255 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 256 256 - </None> 257 257 - <None Include="samples\beer_fancy.pxs"> 258 258 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 259 259 - </None> 260 260 - <None Include="samples\tictactoe.pxs"> 261 261 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 262 262 - </None> 263 263 - <None Include="src\prx_interactive.pxs"> 264 264 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 265 265 - </None> 266 266 - <None Include="src\prx_lib.pxs"> 267 267 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 268 268 - </None> 269 269 - <None Include="src\prx_main.pxs"> 270 270 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 271 271 - </None> 272 272 - </ItemGroup> 273 273 - <ItemGroup> 274 274 - <EmbeddedResource Include="Properties\Resources.resx"> 275 275 - <SubType>Designer</SubType> 276 276 - <Generator>ResXFileCodeGenerator</Generator> 277 277 - <LastGenOutput>Resources.Designer.cs</LastGenOutput> 278 278 - </EmbeddedResource> 279 279 - </ItemGroup> 280 280 - <ItemGroup> 281 281 - <Content Include="..\LICENSE.txt"> 282 282 - <Link>LICENSE.txt</Link> 283 283 - <CopyToOutputDirectory>Always</CopyToOutputDirectory> 284 284 - </Content> 285 285 - <Content Include="Prx.ico" /> 286 286 - </ItemGroup> 287 287 - <ItemGroup> 288 288 - <Service Include="{B4F97281-0DBD-4835-9ED8-7DFB966E87FF}" /> 289 289 - </ItemGroup> 290 290 - <ItemGroup> 291 291 - <BootstrapperPackage Include="Microsoft.Net.Client.3.5"> 292 292 - <Visible>False</Visible> 293 293 - <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName> 294 294 - <Install>false</Install> 295 295 - </BootstrapperPackage> 296 296 - <BootstrapperPackage Include="Microsoft.Net.Framework.2.0"> 297 297 - <Visible>False</Visible> 298 298 - <ProductName>.NET Framework 2.0 %28x86%29</ProductName> 299 299 - <Install>true</Install> 300 300 - </BootstrapperPackage> 301 301 - <BootstrapperPackage Include="Microsoft.Net.Framework.3.0"> 302 302 - <Visible>False</Visible> 303 303 - <ProductName>.NET Framework 3.0 %28x86%29</ProductName> 304 304 - <Install>false</Install> 305 305 - </BootstrapperPackage> 306 306 - <BootstrapperPackage Include="Microsoft.Net.Framework.3.5"> 307 307 - <Visible>False</Visible> 308 308 - <ProductName>.NET Framework 3.5</ProductName> 309 309 - <Install>false</Install> 310 310 - </BootstrapperPackage> 311 311 - <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1"> 312 312 - <Visible>False</Visible> 313 313 - <ProductName>.NET Framework 3.5 SP1</ProductName> 314 314 - <Install>false</Install> 315 315 - </BootstrapperPackage> 316 316 - </ItemGroup> 317 317 - <ItemGroup> 318 318 - <ProjectReference Include="..\Prexonite\Prexonite.csproj"> 319 319 - <Project>{2FE722CA-B671-4EE8-9BF1-9F3ACFACD24D}</Project> 320 320 - <Name>Prexonite</Name> 321 321 - </ProjectReference> 322 322 - </ItemGroup> 323 323 - <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" /> 324 324 - <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 325 325 - Other similar extension points exist, see Microsoft.Common.targets. 326 326 - <Target Name="BeforeBuild"> 327 327 - </Target> 328 328 - <Target Name="AfterBuild"> 329 329 - </Target> 330 330 - --> 331 331 - <Target Name="AfterBuild"> 332 332 - <!-- Choose configuration file depending on MSBuild configuration --> 333 333 - <Delete Files="$(TargetDir)$(TargetFileName).config" /> 334 334 - <Copy SourceFiles="$(ProjectDir)\config\app.$(Configuration).config" DestinationFiles="$(TargetDir)$(TargetFileName).config" /> 335 335 - </Target> 1 1 + <?xml version="1.0" encoding="utf-8"?> 2 2 + <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0"> 3 3 + <Import Project="..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props" Condition="Exists('..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props')" /> 4 4 + <PropertyGroup> 5 5 + <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> 6 6 + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> 7 7 + <ProductVersion>9.0.30729</ProductVersion> 8 8 + <SchemaVersion>2.0</SchemaVersion> 9 9 + <ProjectGuid>{8C90E0C5-8FD3-407C-ABE8-9EE856F87269}</ProjectGuid> 10 10 + <OutputType>Exe</OutputType> 11 11 + <AppDesignerFolder>Properties</AppDesignerFolder> 12 12 + <RootNamespace>Prx</RootNamespace> 13 13 + <AssemblyName>Prx</AssemblyName> 14 14 + <SccProjectName> 15 15 + </SccProjectName> 16 16 + <SccLocalPath> 17 17 + </SccLocalPath> 18 18 + <SccProvider> 19 19 + </SccProvider> 20 20 + <ApplicationIcon>Prx.ico</ApplicationIcon> 21 21 + <FileUpgradeFlags> 22 22 + </FileUpgradeFlags> 23 23 + <OldToolsVersion>3.5</OldToolsVersion> 24 24 + <UpgradeBackupLocation> 25 25 + </UpgradeBackupLocation> 26 26 + <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion> 27 27 + <IsWebBootstrapper>false</IsWebBootstrapper> 28 28 + <ApplicationManifest>app.manifest</ApplicationManifest> 29 29 + <TargetFrameworkProfile> 30 30 + </TargetFrameworkProfile> 31 31 + <PublishUrl>publish\</PublishUrl> 32 32 + <Install>true</Install> 33 33 + <InstallFrom>Disk</InstallFrom> 34 34 + <UpdateEnabled>false</UpdateEnabled> 35 35 + <UpdateMode>Foreground</UpdateMode> 36 36 + <UpdateInterval>7</UpdateInterval> 37 37 + <UpdateIntervalUnits>Days</UpdateIntervalUnits> 38 38 + <UpdatePeriodically>false</UpdatePeriodically> 39 39 + <UpdateRequired>false</UpdateRequired> 40 40 + <MapFileExtensions>true</MapFileExtensions> 41 41 + <ApplicationRevision>0</ApplicationRevision> 42 42 + <ApplicationVersion>1.0.0.%2a</ApplicationVersion> 43 43 + <UseApplicationTrust>false</UseApplicationTrust> 44 44 + <BootstrapperEnabled>true</BootstrapperEnabled> 45 45 + </PropertyGroup> 46 46 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> 47 47 + <DebugSymbols>true</DebugSymbols> 48 48 + <DebugType>full</DebugType> 49 49 + <Optimize>false</Optimize> 50 50 + <OutputPath>bin\Debug\</OutputPath> 51 51 + <DefineConstants>DEBUG;TRACE</DefineConstants> 52 52 + <ErrorReport>prompt</ErrorReport> 53 53 + <WarningLevel>4</WarningLevel> 54 54 + <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 55 55 + <Prefer32Bit>false</Prefer32Bit> 56 56 + <LangVersion>7.2</LangVersion> 57 57 + </PropertyGroup> 58 58 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> 59 59 + <DebugType>none</DebugType> 60 60 + <Optimize>true</Optimize> 61 61 + <OutputPath>bin\Release\</OutputPath> 62 62 + <DefineConstants>TRACE</DefineConstants> 63 63 + <ErrorReport>prompt</ErrorReport> 64 64 + <WarningLevel>4</WarningLevel> 65 65 + <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 66 66 + <Prefer32Bit>false</Prefer32Bit> 67 67 + </PropertyGroup> 68 68 + <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'"> 69 69 + <DebugSymbols>true</DebugSymbols> 70 70 + <OutputPath>bin\x86\Debug\</OutputPath> 71 71 + <DefineConstants>DEBUG;TRACE</DefineConstants> 72 72 + <DebugType>full</DebugType> 73 73 + <PlatformTarget>x86</PlatformTarget> 74 74 + <CodeAnalysisLogFile>bin\Debug\Prx.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 75 75 + <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 76 76 + <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 77 77 + <ErrorReport>prompt</ErrorReport> 78 78 + <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 79 79 + <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 80 80 + <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 81 81 + <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 82 82 + <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 83 83 + <Prefer32Bit>false</Prefer32Bit> 84 84 + </PropertyGroup> 85 85 + <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'"> 86 86 + <OutputPath>bin\x86\Release\</OutputPath> 87 87 + <DefineConstants>TRACE</DefineConstants> 88 88 + <Optimize>true</Optimize> 89 89 + <PlatformTarget>x86</PlatformTarget> 90 90 + <CodeAnalysisLogFile>bin\Release\Prx.exe.CodeAnalysisLog.xml</CodeAnalysisLogFile> 91 91 + <CodeAnalysisUseTypeNameInSuppression>true</CodeAnalysisUseTypeNameInSuppression> 92 92 + <CodeAnalysisModuleSuppressionsFile>GlobalSuppressions.cs</CodeAnalysisModuleSuppressionsFile> 93 93 + <ErrorReport>prompt</ErrorReport> 94 94 + <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> 95 95 + <CodeAnalysisRuleSetDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets</CodeAnalysisRuleSetDirectories> 96 96 + <CodeAnalysisIgnoreBuiltInRuleSets>true</CodeAnalysisIgnoreBuiltInRuleSets> 97 97 + <CodeAnalysisRuleDirectories>;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules</CodeAnalysisRuleDirectories> 98 98 + <CodeAnalysisIgnoreBuiltInRules>true</CodeAnalysisIgnoreBuiltInRules> 99 99 + <CodeAnalysisFailOnMissingRules>false</CodeAnalysisFailOnMissingRules> 100 100 + <Prefer32Bit>false</Prefer32Bit> 101 101 + </PropertyGroup> 102 102 + <PropertyGroup> 103 103 + <StartupObject>Prx.Program</StartupObject> 104 104 + </PropertyGroup> 105 105 + <ItemGroup> 106 106 + <Reference Include="System" /> 107 107 + <Reference Include="System.Threading.Tasks.Extensions, Version=4.1.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51"> 108 108 + <HintPath>..\packages\System.Threading.Tasks.Extensions.4.4.0\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath> 109 109 + <Private>True</Private> 110 110 + </Reference> 111 111 + </ItemGroup> 112 112 + <ItemGroup> 113 113 + <Compile Include="Benchmarking\Benchmark.cs" /> 114 114 + <Compile Include="Benchmarking\BenchmarkEntry.cs" /> 115 115 + <Compile Include="Benchmarking\BenchmarkEntryCollection.cs" /> 116 116 + <Compile Include="Benchmarking\Measurement.cs" /> 117 117 + <Compile Include="PrexoniteConsole.cs" /> 118 118 + <Compile Include="Program.cs" /> 119 119 + <Compile Include="Properties\AssemblyInfo.cs" /> 120 120 + <Compile Include="Properties\Resources.Designer.cs"> 121 121 + <AutoGen>True</AutoGen> 122 122 + <DesignTime>True</DesignTime> 123 123 + <DependentUpon>Resources.resx</DependentUpon> 124 124 + </Compile> 125 125 + <Compile Include="SuperConsole.cs" /> 126 126 + <Compile Include="Win32\User32.cs" /> 127 127 + </ItemGroup> 128 128 + <ItemGroup> 129 129 + <None Include="app.config" /> 130 130 + <None Include="app.manifest" /> 131 131 + <Content Include="psr\ast.pxs"> 132 132 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 133 133 + </Content> 134 134 + <Content Include="psr\console.pxs"> 135 135 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 136 136 + </Content> 137 137 + <Content Include="psr\csp.pxs"> 138 138 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 139 139 + </Content> 140 140 + <Content Include="psr\debug.pxs"> 141 141 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 142 142 + </Content> 143 143 + <Content Include="psr\call_sub.pxs"> 144 144 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 145 145 + </Content> 146 146 + <None Include="config\app.Release.config" /> 147 147 + <None Include="config\app.Debug.config" /> 148 148 + <None Include="packages.config" /> 149 149 + <None Include="psr\debug\debug.pxs"> 150 150 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 151 151 + </None> 152 152 + <None Include="psr\debug\disassembler.pxs"> 153 153 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 154 154 + </None> 155 155 + <Content Include="psr\file.pxs"> 156 156 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 157 157 + </Content> 158 158 + <Content Include="psr\hook.pxs"> 159 159 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 160 160 + </Content> 161 161 + <Content Include="psr\json.pxs"> 162 162 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 163 163 + </Content> 164 164 + <Content Include="psr\loop.pxs"> 165 165 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 166 166 + </Content> 167 167 + <Content Include="psr\macro.pxs"> 168 168 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 169 169 + </Content> 170 170 + <Content Include="psr\experimental\args.pxs"> 171 171 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 172 172 + </Content> 173 173 + <Content Include="psr\misc.pxs"> 174 174 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 175 175 + </Content> 176 176 + <Content Include="psr\pattern.pxs"> 177 177 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 178 178 + </Content> 179 179 + <Content Include="psr\prop.pxs"> 180 180 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 181 181 + </Content> 182 182 + <Content Include="psr\queue.pxs"> 183 183 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 184 184 + </Content> 185 185 + <Content Include="psr\set.pxs"> 186 186 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 187 187 + </Content> 188 188 + <Content Include="psr\stack.pxs"> 189 189 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 190 190 + </Content> 191 191 + <Content Include="psr\struct.pxs"> 192 192 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 193 193 + </Content> 194 194 + <Content Include="psr\dependency_analysis.pxs"> 195 195 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 196 196 + </Content> 197 197 + <None Include="psr\experimental\indentation.pxs"> 198 198 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 199 199 + </None> 200 200 + <None Include="psr\impl\ast.pxs"> 201 201 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 202 202 + </None> 203 203 + <None Include="psr\impl\call_sub.pxs"> 204 204 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 205 205 + </None> 206 206 + <None Include="psr\impl\console.pxs"> 207 207 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 208 208 + </None> 209 209 + <None Include="psr\impl\csp.pxs"> 210 210 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 211 211 + </None> 212 212 + <None Include="psr\impl\debug.pxs"> 213 213 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 214 214 + </None> 215 215 + <None Include="psr\impl\dependency_analysis.pxs"> 216 216 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 217 217 + </None> 218 218 + <None Include="psr\impl\file.pxs"> 219 219 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 220 220 + </None> 221 221 + <None Include="psr\impl\hook.pxs"> 222 222 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 223 223 + </None> 224 224 + <None Include="psr\impl\json.pxs"> 225 225 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 226 226 + </None> 227 227 + <None Include="psr\impl\loop.pxs"> 228 228 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 229 229 + </None> 230 230 + <None Include="psr\impl\macro.pxs"> 231 231 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 232 232 + </None> 233 233 + <None Include="psr\impl\misc.pxs"> 234 234 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 235 235 + </None> 236 236 + <None Include="psr\impl\pattern.pxs"> 237 237 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 238 238 + </None> 239 239 + <None Include="psr\impl\prop.pxs"> 240 240 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 241 241 + </None> 242 242 + <None Include="psr\impl\queue.pxs"> 243 243 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 244 244 + </None> 245 245 + <None Include="psr\impl\set.pxs"> 246 246 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 247 247 + </None> 248 248 + <None Include="psr\impl\stack.pxs"> 249 249 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 250 250 + </None> 251 251 + <None Include="psr\impl\struct.pxs"> 252 252 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 253 253 + </None> 254 254 + <None Include="psr\test.pxs"> 255 255 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 256 256 + </None> 257 257 + <None Include="psr\test\meta_macro.pxs"> 258 258 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 259 259 + </None> 260 260 + <None Include="samples\beer.pxs"> 261 261 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 262 262 + </None> 263 263 + <None Include="samples\beer_fancy.pxs"> 264 264 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 265 265 + </None> 266 266 + <None Include="samples\tictactoe.pxs"> 267 267 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 268 268 + </None> 269 269 + <None Include="src\prx_interactive.pxs"> 270 270 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 271 271 + </None> 272 272 + <None Include="src\prx_lib.pxs"> 273 273 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 274 274 + </None> 275 275 + <None Include="src\prx_main.pxs"> 276 276 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 277 277 + </None> 278 278 + </ItemGroup> 279 279 + <ItemGroup> 280 280 + <EmbeddedResource Include="Properties\Resources.resx"> 281 281 + <SubType>Designer</SubType> 282 282 + <Generator>ResXFileCodeGenerator</Generator> 283 283 + <LastGenOutput>Resources.Designer.cs</LastGenOutput> 284 284 + </EmbeddedResource> 285 285 + </ItemGroup> 286 286 + <ItemGroup> 287 287 + <Content Include="..\LICENSE.txt"> 288 288 + <Link>LICENSE.txt</Link> 289 289 + <CopyToOutputDirectory>Always</CopyToOutputDirectory> 290 290 + </Content> 291 291 + <Content Include="Prx.ico" /> 292 292 + </ItemGroup> 293 293 + <ItemGroup> 294 294 + <Service Include="{B4F97281-0DBD-4835-9ED8-7DFB966E87FF}" /> 295 295 + </ItemGroup> 296 296 + <ItemGroup> 297 297 + <BootstrapperPackage Include="Microsoft.Net.Client.3.5"> 298 298 + <Visible>False</Visible> 299 299 + <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName> 300 300 + <Install>false</Install> 301 301 + </BootstrapperPackage> 302 302 + <BootstrapperPackage Include="Microsoft.Net.Framework.2.0"> 303 303 + <Visible>False</Visible> 304 304 + <ProductName>.NET Framework 2.0 %28x86%29</ProductName> 305 305 + <Install>true</Install> 306 306 + </BootstrapperPackage> 307 307 + <BootstrapperPackage Include="Microsoft.Net.Framework.3.0"> 308 308 + <Visible>False</Visible> 309 309 + <ProductName>.NET Framework 3.0 %28x86%29</ProductName> 310 310 + <Install>false</Install> 311 311 + </BootstrapperPackage> 312 312 + <BootstrapperPackage Include="Microsoft.Net.Framework.3.5"> 313 313 + <Visible>False</Visible> 314 314 + <ProductName>.NET Framework 3.5</ProductName> 315 315 + <Install>false</Install> 316 316 + </BootstrapperPackage> 317 317 + <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1"> 318 318 + <Visible>False</Visible> 319 319 + <ProductName>.NET Framework 3.5 SP1</ProductName> 320 320 + <Install>false</Install> 321 321 + </BootstrapperPackage> 322 322 + </ItemGroup> 323 323 + <ItemGroup> 324 324 + <ProjectReference Include="..\Prexonite\Prexonite.csproj"> 325 325 + <Project>{2FE722CA-B671-4EE8-9BF1-9F3ACFACD24D}</Project> 326 326 + <Name>Prexonite</Name> 327 327 + </ProjectReference> 328 328 + </ItemGroup> 329 329 + <Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" /> 330 330 + <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 331 331 + Other similar extension points exist, see Microsoft.Common.targets. 332 332 + <Target Name="BeforeBuild"> 333 333 + </Target> 334 334 + <Target Name="AfterBuild"> 335 335 + </Target> 336 336 + --> 337 337 + <Target Name="AfterBuild"> 338 338 + <!-- Choose configuration file depending on MSBuild configuration --> 339 339 + <Delete Files="$(TargetDir)$(TargetFileName).config" /> 340 340 + <Copy SourceFiles="$(ProjectDir)\config\app.$(Configuration).config" DestinationFiles="$(TargetDir)$(TargetFileName).config" /> 341 341 + </Target> 342 342 + <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild"> 343 343 + <PropertyGroup> 344 344 + <ErrorText>This project references NuGet package(s) that are missing on this computer. Enable NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105.The missing file is {0}.</ErrorText> 345 345 + </PropertyGroup> 346 346 + <Error Condition="!Exists('..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Net.Compilers.2.7.0\build\Microsoft.Net.Compilers.props'))" /> 347 347 + </Target> 336 348 </Project>

+5

Prx/packages.config

Reviewed

··· 1 1 + <?xml version="1.0" encoding="utf-8"?> 2 2 + <packages> 3 3 + <package id="Microsoft.Net.Compilers" version="2.7.0" targetFramework="net462" developmentDependency="true" /> 4 4 + <package id="System.Threading.Tasks.Extensions" version="4.4.0" targetFramework="net462" /> 5 5 + </packages>