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);
}
