Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | New test for OO cleanup: routine for object gets deleted before namespace deletion is complete. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | main |
| Files: | files | file ages | folders |
| SHA3-256: |
330ec158a8e453506e5275b409340773 |
| User & Date: | pooryorick 2021-04-02 21:20:46.083 |
Context
|
2021-04-03
| ||
| 12:17 | New test for OO cleanup: routine for object gets deleted before namespace deletion is complete. check-in: 35138f0dfd user: pooryorick tags: core-8-branch | |
|
2021-04-02
| ||
| 23:02 | OO cleanup fix that passes test 11.7. check-in: 3ddbaef356 user: pooryorick tags: trunk, main | |
| 21:20 | New test for OO cleanup: routine for object gets deleted before namespace deletion is complete. check-in: 330ec158a8 user: pooryorick tags: trunk, main | |
|
2021-04-01
| ||
| 10:23 | Merge 8.7 check-in: a1336b26e8 user: jan.nijtmans tags: trunk, main | |
Changes
Changes to tests/oo.test.
| ︙ | ︙ | |||
1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 |
rename obj2 {}
rename obj1 {}
}
interp delete interp1
}
} -result 0 -cleanup {
}
test oo-11.6.4 {
OO: cleanup ReleaseClassContents() where class is mixed into one of its
instances
} -body {
oo::class create obj1
::oo::define obj1 {self mixin [self]}
::oo::copy obj1 obj2
::oo::objdefine obj2 {mixin [self]}
::oo::copy obj2 obj3
rename obj3 {}
rename obj2 {}
# No segmentation fault
return done
} -result done -cleanup {
rename obj1 {}
}
test oo-12.1 {OO: filters} {
oo::class create Aclass
Aclass create Aobject
oo::define Aclass {
method concatenate args {
global result
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 |
rename obj2 {}
rename obj1 {}
}
interp delete interp1
}
} -result 0 -cleanup {
}
test oo-11.6.4 {
OO: cleanup ReleaseClassContents() where class is mixed into one of its
instances
} -body {
oo::class create obj1
::oo::define obj1 {self mixin [self]}
::oo::copy obj1 obj2
::oo::objdefine obj2 {mixin [self]}
::oo::copy obj2 obj3
rename obj3 {}
rename obj2 {}
# No segmentation fault
return done
} -result done -cleanup {
rename obj1 {}
}
test oo-11.7 {
When an object is deleted its namespace is deleted, and all objects it is
mixed into are also deleted. If the object has been renamed into the
namespace of one of the objects it has been mixed into, the routine for the
object might get entirely deleted before the namespace of the object is
entirely deleted, in which case the C routine the performs the namespace
either must either understand that the handle on the routine for the object
might now be gone, or it must be guaranteed that the handle does not
disappear until that routine is finished.
} -setup {
} -body {
oo::define oo::class {
export createWithNamespace
}
oo::class create class1
oo::object create obj1
oo::objdefine obj1 {
mixin ::class1
}
set obj1ns [info object namespace obj1]
set class1ns [info object namespace class1]
rename class1 ${obj1ns}::class1
# No segmentation fault
namespace delete $class1ns
} -cleanup {
rename obj {}
} -result done
test oo-12.1 {OO: filters} {
oo::class create Aclass
Aclass create Aobject
oo::define Aclass {
method concatenate args {
global result
|
| ︙ | ︙ | |||
1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 |
}
oo::objdefine Aobject filter logFilter
set result {}
lappend result [Aobject concatenate 1 2 3 4 5]
Aclass destroy
return $result
} {{calling ::Aobject->logFilter 1 2 3 4 5} 1 2 3 4 5 result=12345 12345}
test oo-12.2 {OO: filters} -setup {
oo::class create Aclass
Aclass create Aobject
} -body {
oo::define Aclass {
method concatenate args {
global result
| > > | 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 |
}
oo::objdefine Aobject filter logFilter
set result {}
lappend result [Aobject concatenate 1 2 3 4 5]
Aclass destroy
return $result
} {{calling ::Aobject->logFilter 1 2 3 4 5} 1 2 3 4 5 result=12345 12345}
test oo-12.2 {OO: filters} -setup {
oo::class create Aclass
Aclass create Aobject
} -body {
oo::define Aclass {
method concatenate args {
global result
|
| ︙ | ︙ | |||
4372 4373 4374 4375 4376 4377 4378 |
oo::copy obj1 obj2
oo::objdefine obj2 {
mixin obj2 obj1
}
} -body {
rename obj2 {}
rename obj1 {}
| | > | 4406 4407 4408 4409 4410 4411 4412 4413 4414 4415 4416 4417 4418 4419 4420 4421 4422 4423 4424 4425 |
oo::copy obj1 obj2
oo::objdefine obj2 {
mixin obj2 obj1
}
} -body {
rename obj2 {}
rename obj1 {}
# No segmentation fault
return done
} -cleanup {
rename obj {}
} -result done
test oo-36.1 {TIP #470: introspection within oo::define} {
oo::define oo::object self
} ::oo::object
test oo-36.2 {TIP #470: introspection within oo::define} -setup {
oo::class create Cls
} -body {
|
| ︙ | ︙ |