public void PackageGlobalVariableIsUpdatedWithHostProperty() { var host = new LispHost(useInitScript: false); var testPackage = host.AddPackage("TEST-PACKAGE", new[] { host.CurrentPackage }); var package = host.GetValue <LispPackage>("*PACKAGE*"); Assert.Equal("COMMON-LISP", package.Name); host.CurrentPackage = testPackage; package = host.GetValue <LispPackage>("*PACKAGE*"); Assert.Equal("TEST-PACKAGE", package.Name); }
public void CurrentPackageIsUpdatedWithInPackageFunctionWithString() { var host = new LispHost(); host.AddPackage("TEST-PACKAGE", new[] { host.CurrentPackage }); var package = host.GetValue <LispPackage>("*PACKAGE*"); Assert.Equal("COMMON-LISP-USER", package.Name); host.Eval("(in-package \"TEST-PACKAGE\")"); package = host.GetValue <LispPackage>("*PACKAGE*"); Assert.Equal("TEST-PACKAGE", package.Name); }
public void CurrentPackageIsUpdatedWithInPackageFunctionWithKeyword() { var host = new LispHost(useInitScript: false); host.AddPackage("TEST-PACKAGE", new[] { host.CurrentPackage }); var package = host.GetValue <LispPackage>("*PACKAGE*"); Assert.Equal("COMMON-LISP", package.Name); host.Eval("(in-package :test-package)"); package = host.GetValue <LispPackage>("*PACKAGE*"); Assert.Equal("TEST-PACKAGE", package.Name); }