連載：.NETで始めるデザインパターン 第6回 リファクタリングにより導き出すCompositeパターン - VB.NETのコード - ＠IT

Imports System Imports NUnit.Framework Imports DesignPatterns.Core.Composite Namespace DesignPatterns.Tests.Composite ' Elementのテスト・クラス <TestFixture()> Public Class ElementTest Private _target As Element <Test()> Public Sub 属性が1つで値が1つのエレメントを出力する() _target = New Element("actualPoint") _target.AddAttribute("isOver", "True") _target.Content = "2.0" Dim expected As String = "<actualPoint isOver=""True

[chobitnet]

デザインパターン